summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-25 15:03:59 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-25 15:03:59 +0200
commit88f7da8db37b18e87839dce22ff9999caf4d3d24 (patch)
treeb566f5323dc5ddfd1505ecd7085f7b19be477469
parent48f009bc9f44ecd422d5b617a8d3235f3552c1a2 (diff)
downloadorg-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.el5
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