branch: externals/org
commit c0b66bf9c15ab1a0fc129dc49dc5f79583c223ad
Author: Kris Nelson <k...@kristofernelson.com>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-log-beginning: Fix error creating LOGBOOK drawer at end of buffer
* lisp/org.el (org-log-beginning): Fix regression after 288c7069c where
"Error in post-command-hook (org-add-log-note): (end-of-buffer)"
is displayed after creating the LOGBOOK drawer on a heading which is
at the end of the buffer.
Reported-by: Kris Nelson <k...@kristofernelson.com>
Link:
https://orgmode.org/list/766237934.317726.1715720181...@office.mailbox.org
TINYCHANGE
---
lisp/org.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 4342ddd735..5e9f479fba 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10676,10 +10676,10 @@ narrowing."
(unless (bolp) (insert-and-inherit "\n"))
(let ((beg (point)))
(insert-and-inherit ":" drawer ":\n:END:")
- (if (eolp) (forward-char) (insert "\n"))
+ (unless (eolp) (insert-and-inherit "\n") (backward-char))
(org-indent-region beg (point))
- (org-fold-region (line-end-position -1) (1- (point)) t
'drawer))))
- (end-of-line -1))))
+ (org-fold-region (line-end-position 0) (point) t 'drawer))))
+ (end-of-line 0))))
(t
(org-end-of-meta-data org-log-state-notes-insert-after-drawers)
(let ((endpos (point)))
