diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-23 13:52:16 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-23 13:52:16 +0200 |
commit | 7ca34d2aef42aad1d48692b58f51514e61204fd6 (patch) | |
tree | 7878174141e3a1546f76e29adbe99ede3637d29d | |
parent | 3c9ec81e1855cf362a98b689655af49bfd4831e6 (diff) | |
download | org-mode-7ca34d2aef42aad1d48692b58f51514e61204fd6.tar.gz |
org-indent: Fix indentation of inline tasks
* lisp/org-indent.el (org-indent--compute-prefixes): Fix indentation
of inline tasks when `org-inlinetask-show-first-star is non-nil.
Reported-by: Rasmus <rasmus@gmx.us>
<http://lists.gnu.org/archive/html/emacs-orgmode/2017-06/msg00452.html>
-rw-r--r-- | lisp/org-indent.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 10c9617..4a22b15 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -142,11 +142,11 @@ useful to make it ever so slightly different." ;; Inline tasks line prefixes (aset org-indent--inlinetask-line-prefixes n - (org-add-props (if (bound-and-true-p org-inlinetask-show-first-star) - (concat org-indent-inlinetask-first-star - (substring heading-prefix 1)) - heading-prefix) - nil 'face 'org-indent))) + (cond ((<= n 1) "") + ((bound-and-true-p org-inlinetask-show-first-star) + (concat org-indent-inlinetask-first-star + (substring heading-prefix 1))) + (t (org-add-props heading-prefix nil 'face 'org-indent))))) ;; Text line prefixes. (aset org-indent--text-line-prefixes n |