diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-20 09:53:26 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-20 09:53:26 +0200 |
commit | 97fa95cbc3cc485540a82145b25db4f9b54041cf (patch) | |
tree | bda40c7c006d109608aca9f2e7218030a19ad111 | |
parent | bb25a04f865c02f52d7e9be2c93ef95190dc0569 (diff) | |
download | org-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.el | 5 |
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) |