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)))) `----------------------------------------------------------- -- cheers, Thorsten