forked from mirrors/org-mode
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/
This commit is contained in:
parent
43f6ced0da
commit
730a05f787
11
lisp/org.el
11
lisp/org.el
|
@ -18843,7 +18843,16 @@ ELEMENT."
|
||||||
(current-indentation))))
|
(current-indentation))))
|
||||||
((and
|
((and
|
||||||
(eq org-adapt-indentation 'headline-data)
|
(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--get-expected-indentation
|
||||||
(org-element-property :parent element) t))
|
(org-element-property :parent element) t))
|
||||||
((memq type '(headline inlinetask nil))
|
((memq type '(headline inlinetask nil))
|
||||||
|
|
Loading…
Reference in New Issue