diff options
author | Bastien <bzg@gnu.org> | 2021-05-03 16:25:24 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2021-05-03 16:25:24 +0200 |
commit | de93bf02bffe3b63d5710894e5fa2e314768391e (patch) | |
tree | 5a0c728c6b78dcfdb42fd3602d61add0212424e3 | |
parent | 238a80d3ad8406af4205e31684ddd066e6230742 (diff) | |
download | org-mode-de93bf02bffe3b63d5710894e5fa2e314768391e.tar.gz |
lisp/org.el: More fixes to `org-indent-line'
* lisp/org.el (org-indent-line): Fixes indentation.
(org--get-expected-indentation): Don't handle the 'headline-data
value for `org-adapt-indentation' here, it is taken care upstream
in `org-indent-line'.
-rw-r--r-- | lisp/org.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/org.el b/lisp/org.el index c0b5ee5..c20539a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18846,17 +18846,6 @@ ELEMENT." (t (goto-char start) (current-indentation)))) - ((and - (eq org-adapt-indentation 'headline-data) - (or (memq type '(planning clock node-property property-drawer 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. - (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)) (if (org-match-line "[ \t]*$") (org--get-expected-indentation element t) @@ -19000,11 +18989,12 @@ Also align node properties according to `org-property-format'." (interactive) (unless (or (org-at-heading-p) (and (eq org-adapt-indentation 'headline-data) + (not (org-at-clock-log-p)) (save-excursion (beginning-of-line 1) (skip-chars-backward "\n") (or (org-at-heading-p) - (org-at-drawer-p) + (looking-back ":END:.*") (org-at-planning-p))))) (let* ((element (save-excursion (beginning-of-line) (org-element-at-point))) (type (org-element-type element))) |