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>
This commit is contained in:
Nicolas Goaziou 2017-06-20 09:53:26 +02:00
parent bb25a04f86
commit 97fa95cbc3

View file

@ -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)