From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thorsten Jolitz Subject: Re: Move marked text into environment Date: Tue, 28 May 2013 18:06:54 +0200 Message-ID: <87k3mjccm9.fsf@gmail.com> References: <1865341.6h0omvUCy0@linux-ik7b.site> <87obbvcd44.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([208.118.235.92]:56084) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UhMQZ-0007VU-WA for emacs-orgmode@gnu.org; Tue, 28 May 2013 12:07:14 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UhMQV-0005DF-8i for emacs-orgmode@gnu.org; Tue, 28 May 2013 12:07:11 -0400 Received: from plane.gmane.org ([80.91.229.3]:41558) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UhMQV-0005DB-2T for emacs-orgmode@gnu.org; Tue, 28 May 2013 12:07:07 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1UhMQT-0003fi-5n for emacs-orgmode@gnu.org; Tue, 28 May 2013 18:07:05 +0200 Received: from g231106097.adsl.alicedsl.de ([92.231.106.97]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 28 May 2013 18:07:05 +0200 Received: from tjolitz by g231106097.adsl.alicedsl.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 28 May 2013 18:07:05 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Thorsten Jolitz writes: PS There was one wrong paren, better use this one instead: ,----------------------------------------------------------- | (defun org-wrap-region-in-quote-block () | "Wrap region in quote block" | (interactive) | (save-excursion | (save-restriction | (and | (region-active-p) | (use-region-p) | (narrow-to-region (region-beginning) (region-end))) | (goto-char (point-min)) | (insert "#+BEGIN_QUOTE\n") | (goto-char (point-max)) | (insert "#+END_QUOTE\n") | (deactivate-mark)))) `----------------------------------------------------------- -- cheers, Thorsten