diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-25 15:03:59 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-25 15:03:59 +0200 |
commit | 88f7da8db37b18e87839dce22ff9999caf4d3d24 (patch) | |
tree | b566f5323dc5ddfd1505ecd7085f7b19be477469 | |
parent | 48f009bc9f44ecd422d5b617a8d3235f3552c1a2 (diff) | |
download | org-mode-88f7da8db37b18e87839dce22ff9999caf4d3d24.tar.gz |
org-indent: Remove extra column in indentation
* lisp/org-indent.el (org-indent-set-line-properties): Fix virtual
indentation computation.
Reported-by: Eric S Fraga <e.fraga@ucl.ac.uk>
<http://permalink.gmane.org/gmane.emacs.orgmode/100483>
-rw-r--r-- | lisp/org-indent.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-indent.el b/lisp/org-indent.el index da11324..197042d 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -255,7 +255,7 @@ When optional argument HEADING is non-nil, assume line is at a heading. Moreover, if is is `inlinetask', the first star will have `org-warning' face." (let* ((stars (if (<= level 1) "" - (make-string (* org-indent-indentation-per-level + (make-string (* (1- org-indent-indentation-per-level) (1- level)) ?*))) (line @@ -267,7 +267,8 @@ have `org-warning' face." (heading (org-add-props stars nil 'face 'org-hide)) (t (concat (org-add-props (concat stars (make-string level ?*)) nil 'face 'org-indent) - (char-to-string org-indent-boundary-char))))) + (and (> level 0) + (char-to-string org-indent-boundary-char)))))) (wrap (org-add-props (concat stars |