diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-10-31 12:28:51 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-10-31 12:35:13 -0400 |
| commit | 1ec47568f4a9032edf6b48caa32d2f4df4c70790 (patch) | |
| tree | 5bf3836afae896fdb0e7a1a9b06c1c822dae5543 | |
| parent | 54d3032cdcc2c2c30efac41e84ae4ab0543f7ad2 (diff) | |
| download | org-mode-1ec47568f4a9032edf6b48caa32d2f4df4c70790.tar.gz | |
org-format-outline-path: Cosmetic fix
* lisp/org.el (org-format-outline-path): Change loop counter.
The old version gives the same result when combined with the other for
clause, but it reads as though the intention is to reach
(length path) rather than (1- (length path)).
| -rwxr-xr-x | lisp/org.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index e9f0af9..3ac7780 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -11760,7 +11760,7 @@ the default is \"/\"." (mapconcat (lambda (s) (replace-regexp-in-string "[ \t]+\\'" "" s)) (loop for head in path - for n upto (length path) + for n from 0 collect (org-add-props head nil 'face (nth (% n org-n-level-faces) org-level-faces))) |