[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org ba9e531 2/2: lisp/org.el: Fix another inden
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org ba9e531 2/2: lisp/org.el: Fix another indentation case |
Date: |
Mon, 3 May 2021 04:57:15 -0400 (EDT) |
branch: externals-release/org
commit ba9e5310164aed27e53d9ef032c902236495e998
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>
lisp/org.el: Fix another indentation case
* lisp/org.el (org-indent-line): With `org-adapt-indentation' set
to 'headline-data, don't indent after a headline, a planning line
or a drawer.
Reported-by: Kévin Le Gouguec <kevin.legouguec@gmail.com>
Link:
https://orgmode.org/list/878s4wu9oe.fsf@gmail.com/T/#m658a98441dcce099a569ca5b228778aad5d102f3
---
lisp/org.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/org.el b/lisp/org.el
index 97bc06e..c0b5ee5 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19003,7 +19003,9 @@ Also align node properties according to
`org-property-format'."
(save-excursion
(beginning-of-line 1)
(skip-chars-backward "\n")
- (org-at-heading-p))))
+ (or (org-at-heading-p)
+ (org-at-drawer-p)
+ (org-at-planning-p)))))
(let* ((element (save-excursion (beginning-of-line)
(org-element-at-point)))
(type (org-element-type element)))
(cond ((and (memq type '(plain-list item))