[elpa] externals-release/org 26d1d29: lisp/org.el: Small refactoring

[ELPA Syncer]

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

    lisp/org.el: Small refactoring
    
    * lisp/org.el (org--get-expected-indentation): Use
    `org-element-lineage' to check whether the point is right at the
    beginning of a logbook drawer.
    
    Reported-by: Ihor Radchenko <yantar92@gmail.com>
    Link: https://orgmode.org/list/87pmygnr7h.fsf@localhost
---
 lisp/org.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 181938d..47511b1 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -18844,15 +18844,12 @@ ELEMENT."
       ((and
        (eq org-adapt-indentation 'headline-data)
         (or (memq type '(planning clock node-property property-drawer drawer))
-            ;; FIXME: when storing a note in a LOGBOOK drawer,
+            ;; 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))))))
+            (eq (org-element-type (car (org-element-lineage element))) 
'drawer)))
        (org--get-expected-indentation
        (org-element-property :parent element) t))
       ((memq type '(headline inlinetask nil))