From mboxrd@z Thu Jan  1 00:00:00 1970
From: AW <alexander.willand@t-online.de>
Subject: Re: Move marked text into environment
Date: Tue, 28 May 2013 21:02:46 +0200
Message-ID: <1447643.61VQ3BfQBr@linux-ik7b.site>
References: <1865341.6h0omvUCy0@linux-ik7b.site> <87obbvcd44.fsf@gmail.com>
	<87k3mjccm9.fsf@gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7Bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:44176)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <alexander.willand@t-online.de>) id 1UhP5R-0002NN-V6
	for emacs-orgmode@gnu.org; Tue, 28 May 2013 14:57:42 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <alexander.willand@t-online.de>) id 1UhP5L-0003KB-4R
	for emacs-orgmode@gnu.org; Tue, 28 May 2013 14:57:33 -0400
Received: from mailout09.t-online.de ([194.25.134.84]:40718)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <alexander.willand@t-online.de>) id 1UhP5K-0003Jg-SD
	for emacs-orgmode@gnu.org; Tue, 28 May 2013 14:57:26 -0400
In-Reply-To: <87k3mjccm9.fsf@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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

Am Dienstag, 28. Mai 2013, 18:06:54 schrieb Thorsten Jolitz:
> Thorsten Jolitz <tjolitz@gmail.com> 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))))
> 
> `-----------------------------------------------------------

Thank you very much!  Works perfectly. 

Cheerio, 

Alexander