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 10:00:20 +0200 Organization: ULg Message-ID: <87vdbhcmaz.fsf@merciadriluca-eee.WORKGROUP> References: <87eii5521m.fsf@merciadriluca-eee.WORKGROUP> <87zl0talkh.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 1273014693 4662 80.91.229.12 (4 May 2010 23:11:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 4 May 2010 23:11:33 +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:11:32 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 1O9RGr-0004pD-Jq for geh-help-gnu-emacs@m.gmane.org; Wed, 05 May 2010 01:11:32 +0200 Original-Received: from localhost ([127.0.0.1]:45482 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O9RGc-0000R1-AE for geh-help-gnu-emacs@m.gmane.org; Tue, 04 May 2010 19:11:06 -0400 Original-Path: usenet.stanford.edu!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:jJIV9uHyeQW+4ZX4lctwjVzorCc= Original-Lines: 60 Original-NNTP-Posting-Host: 62.197.101.67 Original-X-Trace: news.sunsite.dk DXC=VEBVm_]fFJ^e3jRo4OW[0]YSB=nbEKnk[b9X@MG@VaRXB`G2cTG; MnQLGVLjEY^2YX[=LHD=0P^YT9g\V1BeNHOY5Z@8`56Df9PQTU]INdXZ1^=b; 0Yh]1a5] Original-X-Complaints-To: staff@sunsite.dk Original-Xref: usenet.stanford.edu gnu.emacs.help:177853 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:73274 Archived-At: -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 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. - -- 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 iEYEARECAAYFAkvSpRQACgkQM0LLzLt8MhzEMACeMtr+EzA692xVPc+au60y3jPn 7S0An1iRwl0O1MUhzdHwLsODjSSrx5Cs =/vn1 -----END PGP SIGNATURE-----