diff options
author | Bastien Guerry <bzg@altern.org> | 2012-01-25 15:05:53 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-01-25 15:05:53 +0100 |
commit | cf3e3e39f9d3e7008e04b2004badedb8eed88c34 (patch) | |
tree | c06d610537a7dc8b4ee9fd57d16dc8932fc18a0a | |
parent | aee6f9008aea57076288c709c8252ce5ea3c0fda (diff) | |
download | org-mode-cf3e3e39f9d3e7008e04b2004badedb8eed88c34.tar.gz |
New function `org-insert-drawer'.
* org.el (org-insert-drawer): New function.
(org-insert-property-drawer): Use it.
Thanks to Olaf Dietsche for this patch.
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index 4d22272..9d05b3b 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14400,6 +14400,11 @@ formats in the current buffer." (defun org-insert-property-drawer () "Insert a property drawer into the current entry." (interactive) + (org-insert-drawer "PROPERTIES")) + +(defun org-insert-drawer (drawer) + "Insert a drawer into the current entry." + (interactive "sDrawer: ") (org-back-to-heading t) (looking-at org-outline-regexp) (let ((indent (if org-adapt-indentation @@ -14425,7 +14430,7 @@ formats in the current buffer." (org-skip-over-state-notes) (skip-chars-backward " \t\n\r") (if (eq (char-before) ?*) (forward-char 1)) - (let ((inhibit-read-only t)) (insert "\n:PROPERTIES:\n:END:")) + (let ((inhibit-read-only t)) (insert "\n:" drawer ":\n:END:")) (beginning-of-line 0) (org-indent-to-column indent) (beginning-of-line 2) |