tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'maint'

This commit is contained in:
Nicolas Goaziou 2015-08-26 22:23:23 +02:00
parent 0fa05a60eb af0704b4d5
commit 2e13d33baa
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org.el
View File

@ -16217,11 +16217,15 @@ COLUMN formats in the current buffer."
(forward-line)
(when (org-looking-at-p org-planning-line-re) (forward-line))
(unless (org-looking-at-p org-property-drawer-re)
(let ((inhibit-read-only t))
(unless (bolp) (insert "\n"))
(let ((begin (point)))
(insert ":PROPERTIES:\n:END:\n")
(org-indent-region begin (point)))))))
;; Make sure we start editing a line from current entry, not from
;; next one. It prevents extending text properties or overlays
;; belonging to the latter.
(when (bolp) (backward-char))
(let ((begin (1+ (point)))
(inhibit-read-only t))
(insert "\n:PROPERTIES:\n:END:")
(when (eobp) (insert "\n"))
(org-indent-region begin (point))))))
(defun org-insert-drawer (&optional arg drawer)
"Insert a drawer at point.