>From 745e106406a5f5b296bbd9dbda9f9dbd965a2e30 Mon Sep 17 00:00:00 2001 From: Leo Vivier Date: Fri, 22 Feb 2019 18:03:24 +0100 Subject: [PATCH 1/3] org-log-beginning: Fix drawer creation * lisp/org.el (org-log-beginning): Ensure insertion in current restriction. This commit ensures that the log-drawer for state-changes and notes is created within the current restriction. --- lisp/org.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 4c3c3cd78..f22f8b807 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -13118,12 +13118,13 @@ narrowing." ;; No drawer found. Create one, if permitted. (when create (unless (bolp) (insert "\n")) - (let ((beg (point))) - (insert ":" drawer ":\n:END:\n") + (let ((beg (1- (point)))) + (forward-char -1) + (insert "\n:" drawer ":\n:END:") (org-indent-region beg (point)) (org-flag-region - (line-end-position -1) (1- (point)) t 'org-hide-drawer)) - (end-of-line -1))))) + (line-end-position 0) (point) t 'org-hide-drawer)) + (end-of-line 0))))) (t (org-end-of-meta-data org-log-state-notes-insert-after-drawers) (skip-chars-forward " \t\n") -- 2.20.1