mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 07:42:58 +00:00
org-log-beginning: Fix extra blank line created after LOGBOOK drawer
* lisp/org.el (org-log-beginning): Fix regression after f63ff07441
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
This commit is contained in:
parent
ea8ed59c02
commit
288c7069c4
|
@ -10668,7 +10668,8 @@ narrowing."
|
||||||
(org-fold-core-ignore-modifications
|
(org-fold-core-ignore-modifications
|
||||||
(unless (bolp) (insert-and-inherit "\n"))
|
(unless (bolp) (insert-and-inherit "\n"))
|
||||||
(let ((beg (point)))
|
(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-indent-region beg (point))
|
||||||
(org-fold-region (line-end-position -1) (1- (point)) t 'drawer))))
|
(org-fold-region (line-end-position -1) (1- (point)) t 'drawer))))
|
||||||
(end-of-line -1))))
|
(end-of-line -1))))
|
||||||
|
|
Loading…
Reference in a new issue