From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: Putting == before and after selected text Date: Fri, 23 Apr 2010 23:46:54 +0200 Organization: FH-Trier Message-ID: <87zl0talkh.fsf@fh-trier.de> References: <87eii5521m.fsf@merciadriluca-eee.WORKGROUP> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1273014524 4132 80.91.229.12 (4 May 2010 23:08:44 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 4 May 2010 23:08:44 +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:08:33 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 1O9RE7-0003l7-Vo for geh-help-gnu-emacs@m.gmane.org; Wed, 05 May 2010 01:08:32 +0200 Original-Received: from localhost ([127.0.0.1]:44329 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O9RE7-0005c6-DW for geh-help-gnu-emacs@m.gmane.org; Tue, 04 May 2010 19:08:31 -0400 Original-Path: usenet.stanford.edu!syros.belnet.be!news.belnet.be!news2.euro.net!news-out1.kabelfoon.nl!newsfeed.kabelfoon.nl!xindi.nntp.kabelfoon.nl!npeer.de.kpn-eurorings.net!npeer-ng0.de.kpn-eurorings.net!rz.uni-karlsruhe.de!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 39 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1272059360 28385 143.93.54.11 (23 Apr 2010 21:49:20 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Fri, 23 Apr 2010 21:49:20 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:iKOfBzIBgR1biSAvXAIwvXmP8Tc= Cache-Post-Path: arno.fh-trier.de!unknown@dslb-084-059-203-025.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: usenet.stanford.edu gnu.emacs.help:177851 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:73272 Archived-At: 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))) -ap