[elpa] externals-release/org 730a05f 2/2: org.el: Fix indentation of new notes in a logbook drawer

[ELPA Syncer]

branch: externals-release/org
commit 730a05f787a760c54dfd6d5257ac4fd086f4a928
Author: Bastien Guerry <bzg@gnu.org>
Commit: Bastien Guerry <bzg@gnu.org>

    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 <gusbrs.2016@gmail.com>
    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 ea55b51..181938d 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))