From 730a05f787a760c54dfd6d5257ac4fd086f4a928 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 27 Apr 2021 08:41:04 +0200 Subject: [PATCH] org.el: Fix indentation of new notes in a logbook drawer * lisp/org.el (org--get-expected-indentation): Fix indentation of new notes in a logbook drawer when org-adapt-indentation is set to 'headline-data. Reported-by: Gustavo Barros Link: https://orgmode.org/list/878s9p4xtt.fsf@gnu.org/ --- lisp/org.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index ea55b51ce..181938de6 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18843,7 +18843,16 @@ ELEMENT." (current-indentation)))) ((and (eq org-adapt-indentation 'headline-data) - (memq type '(planning clock node-property property-drawer drawer))) + (or (memq type '(planning clock node-property property-drawer drawer)) + ;; FIXME: when storing a note in a LOGBOOK drawer, + ;; `org-store-log-note' needs to insert a new line before + ;; the newly inserted note, thus the `type' at point will + ;; return `paragraph' instead of the expected `drawer', so + ;; we need to manually detect the drawer. + (and (looking-at-p "^$") + (save-excursion + (backward-char) + (looking-back org-drawer-regexp (point-at-bol)))))) (org--get-expected-indentation (org-element-property :parent element) t)) ((memq type '(headline inlinetask nil))