branch: externals/org
commit 288c7069c4c6946628f4896870a5ece25ff7dad2
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>

    org-log-beginning: Fix extra blank line created after LOGBOOK drawer
    
    * lisp/org.el (org-log-beginning): Fix regression after f63ff074417315
    when additional blank is created after newly added LOGBOOK drawer.
    
    Reported-by: Kris Nelson <k...@kristofernelson.com>
    Link: 
https://orgmode.org/list/766237934.317726.1715720181...@office.mailbox.org
---
 lisp/org.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index d9d270ebd0..8d921f11e7 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10668,7 +10668,8 @@ narrowing."
              (org-fold-core-ignore-modifications
               (unless (bolp) (insert-and-inherit "\n"))
               (let ((beg (point)))
-                (insert-and-inherit ":" drawer ":\n:END:\n")
+                (insert-and-inherit ":" drawer ":\n:END:")
+                 (if (eolp) (forward-char) (insert "\n"))
                 (org-indent-region beg (point))
                 (org-fold-region (line-end-position -1) (1- (point)) t 
'drawer))))
           (end-of-line -1))))

Reply via email to