From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Merciadri Luca Newsgroups: gmane.emacs.help Subject: Re: Putting == before and after selected text Date: Sat, 24 Apr 2010 11:51:56 +0200 Organization: ULg Message-ID: <87iq7h5gar.fsf@merciadriluca-eee.WORKGROUP> References: <87eii5521m.fsf@merciadriluca-eee.WORKGROUP> <87zl0talkh.fsf@fh-trier.de> <87vdbhcmaz.fsf@merciadriluca-eee.WORKGROUP> <87bpd9xn3h.fsf@fh-trier.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1273014856 5092 80.91.229.12 (4 May 2010 23:14:16 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 4 May 2010 23:14:16 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Wed May 05 01:14:14 2010 connect(): No such file or directory Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1O9RJN-0005qC-SP for geh-help-gnu-emacs@m.gmane.org; Wed, 05 May 2010 01:14:14 +0200 Original-Received: from localhost ([127.0.0.1]:34186 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O9RJG-0003u5-Ei for geh-help-gnu-emacs@m.gmane.org; Tue, 04 May 2010 19:13:50 -0400 Original-Path: usenet.stanford.edu!goblin1!goblin2!goblin.stu.neva.ru!news.net.uni-c.dk!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail Original-Newsgroups: gnu.emacs.help User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.2 (gnu/linux) Cancel-Lock: sha1:x2L2Q77xoro8fm7qEAHkx1zI6xE= Original-Lines: 75 Original-NNTP-Posting-Host: 62.197.101.67 Original-X-Trace: news.sunsite.dk DXC=:TON68O9@fVD]J=fIXJe6_YSB=nbEKnk[b9X@MG@VaRXB`G2cTG; MnQLGVLjEY^2YX[=LHD=0P^YT9g\V1BeNHOY5Z@8`56Df9PVV_TVJl`TOXK`0E=DX4>aQ Original-X-Complaints-To: staff@sunsite.dk Original-Xref: usenet.stanford.edu gnu.emacs.help:177855 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:73276 Archived-At: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Andreas Politz writes: > Merciadri Luca writes: > >> Andreas Politz writes: >> >>> Merciadri Luca 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 iEYEARECAAYFAkvSvzsACgkQM0LLzLt8MhzfHACfXImoXigDUk6/8mkvGg2mMZTN 0t0AoJN4pk+4mX1tYIE97e3kFP0opuut =658O -----END PGP SIGNATURE-----