[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 10:00:20 +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:
>
>> 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.
- --
Merciadri Luca
See http://www.student.montefiore.ulg.ac.be/~merciadri/
- --
It's the early bird that gets the worm.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8 <http://mailcrypt.sourceforge.net/>
iEYEARECAAYFAkvSpRQACgkQM0LLzLt8MhzEMACeMtr+EzA692xVPc+au60y3jPn
7S0An1iRwl0O1MUhzdHwLsODjSSrx5Cs
=/vn1
-----END PGP SIGNATURE-----