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