Whitespace

This commit is contained in:
Case Duckworth 2021-09-26 17:20:57 -05:00
parent 7f9953bae6
commit 3ee9f368b8
1 changed files with 4 additions and 3 deletions

View File

@ -1909,7 +1909,8 @@ browser defined in `browse-url-secondary-browser-function'."
(el-patch-feature org)
(with-eval-after-load 'org
(el-patch-defun org-format-outline-path (path &optional width prefix separator)
(el-patch-defun org-format-outline-path (path &optional
width prefix separator)
"Format the outline path PATH for display.
WIDTH is the maximum number of characters that is available.
PREFIX is a prefix to be included in the returned string,
@ -1930,8 +1931,8 @@ the default is \"/\"."
for n from 0
collect (el-patch-swap
(org-add-props
head nil '`face
(nth (% n org-n-level-faces) org-level-faces))
head nil 'face
(nth (% n org-n-level-faces) org-level-faces))
head))
separator))))
(when (> (length fpath) width)