[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] Move marked text into environment
From: |
Thorsten Jolitz |
Subject: |
Re: [O] Move marked text into environment |
Date: |
Tue, 28 May 2013 18:06:54 +0200 |
User-agent: |
Gnus/5.130002 (Ma Gnus v0.2) Emacs/24.3 (gnu/linux) |
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))))
`-----------------------------------------------------------
--
cheers,
Thorsten