Re: [O] Move marked text into environment

[AW]

Am Dienstag, 28. Mai 2013, 18:06:54 schrieb Thorsten Jolitz:
> Thorsten Jolitz <address@hidden> 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