[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Putting == before and after selected text
From: |
Merciadri Luca |
Subject: |
Re: Putting == before and after selected text |
Date: |
Sat, 24 Apr 2010 11:51:56 +0200 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Andreas Politz <politza@fh-trier.de> writes:
> Merciadri Luca <Luca.Merciadri@student.ulg.ac.be> writes:
>
>> Andreas Politz <politza@fh-trier.de> writes:
>>
>>> Merciadri Luca <Luca.Merciadri@student.ulg.ac.be> writes:
>>>
>>>> Hi,
>>>>
>>>> I would like some key to a command. This is not difficult, but this
>>>> command should, once it is executed on some text, put `==' before the
>>>> text (on the line before) and `==' after the text (on the line after).
>>>>
>>>> How could I do this?
>>>
>>> How about this ?
>>>
>>> (defun wrap-region-in-== (beg end)
>>> "Wrap lines contained in region with \"==\" marker.
>>>
>>> Interactively, if region is not active, operate on prefix-arg
>>> lines around point."
>>> (interactive
>>> (if (use-region-p)
>>> (list (region-beginning) (region-end))
>>> (let ((arg (prefix-numeric-value current-prefix-arg)))
>>> (save-excursion
>>> (if (< arg 0)
>>> (forward-line)
>>> (beginning-of-line))
>>> (sort (list (point) (progn (forward-line arg) (point)))
>>> '<)))))
>>> (save-excursion
>>> (goto-char beg)
>>> (beginning-of-line)
>>> (insert "==")
>>> (newline)
>>> (goto-char end)
>>> (or (bolp) (forward-line 1))
>>> (insert "==")
>>> (newline)))
>> Nice. I bound it to the F12 key, but I then encounter
>>
>> `if: Symbol's function definition is void: use-region-p' in the
>> minibuffer. Why? Thanks.
>>
>
> Because it's a Emacs23 function and you are using Version 22.
>
> The best would be to replace `use-region-p' with a call to this function
> or simply inline it.
>
> (defun region-active-p ()
> "Return t if Transient Mark mode is enabled and the mark is active."
> (and transient-mark-mode mark-active))
Thanks. Sorry, I am a real beginner in this. It now works prettily. Thanks!
- --
Merciadri Luca
See http://www.student.montefiore.ulg.ac.be/~merciadri/
- --
If you fall off a cliff, you might as well try to fly. After all, you got
nothing to lose.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>
iEYEARECAAYFAkvSvzsACgkQM0LLzLt8MhzfHACfXImoXigDUk6/8mkvGg2mMZTN
0t0AoJN4pk+4mX1tYIE97e3kFP0opuut
=658O
-----END PGP SIGNATURE-----