summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-06-20 09:53:26 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-06-20 09:53:26 +0200
commit97fa95cbc3cc485540a82145b25db4f9b54041cf (patch)
treebda40c7c006d109608aca9f2e7218030a19ad111
parentbb25a04f865c02f52d7e9be2c93ef95190dc0569 (diff)
downloadorg-mode-97fa95cbc3cc485540a82145b25db4f9b54041cf.tar.gz
org-indent: Fix "Fix line and wrap prefixes"
* lisp/org-indent.el (org-indent-set-line-properties): Fix wrap-prefix. Reported-by: William Denton <wtd@pobox.com> <http://lists.gnu.org/archive/html/emacs-orgmode/2017-06/msg00360.html>
-rw-r--r--lisp/org-indent.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-indent.el b/lisp/org-indent.el
index 4a86f9c..10c9617 100644
--- a/lisp/org-indent.el
+++ b/lisp/org-indent.el
@@ -301,9 +301,8 @@ have `org-warning' face."
(wrap
(org-add-props
(concat line
- (make-string level (if heading ?* ?\s))
- (if heading " "
- (make-string (+ indentation (min level 1)) ?\s)))
+ (if heading (concat (make-string level ?*) " ")
+ (make-string indentation ?\s)))
nil 'face 'org-indent)))
;; Add properties down to the next line to indent empty lines.
(add-text-properties (line-beginning-position) (line-beginning-position 2)