emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 288c7069c4 2/3: org-log-beginning: Fix extra blank


From: ELPA Syncer
Subject: [elpa] externals/org 288c7069c4 2/3: org-log-beginning: Fix extra blank line created after LOGBOOK drawer
Date: Fri, 17 May 2024 09:58:55 -0400 (EDT)

branch: externals/org
commit 288c7069c4c6946628f4896870a5ece25ff7dad2
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@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 <kris@kristofernelson.com>
    Link: 
https://orgmode.org/list/766237934.317726.1715720181047@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

[Prev in Thread] Current Thread [Next in Thread]