summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-01-25 15:05:53 +0100
committerBastien Guerry <bzg@altern.org>2012-01-25 15:05:53 +0100
commitcf3e3e39f9d3e7008e04b2004badedb8eed88c34 (patch)
treec06d610537a7dc8b4ee9fd57d16dc8932fc18a0a
parentaee6f9008aea57076288c709c8252ce5ea3c0fda (diff)
downloadorg-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.el7
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)