tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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>
This commit is contained in:
Nicolas Goaziou 2015-08-25 15:03:59 +02:00
parent 48f009bc9f
commit 88f7da8db3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-indent.el
View File

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