[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))))