diff options
author | Bastien Guerry <bastien.guerry@data.gouv.fr> | 2020-09-04 10:03:48 +0200 |
---|---|---|
committer | Bastien Guerry <bastien.guerry@data.gouv.fr> | 2020-09-04 10:03:48 +0200 |
commit | a3576543f5476c4ff617a31a419ffee59461aebb (patch) | |
tree | 135cfc978003334c7910b59f3553095f468ff4b2 | |
parent | 7d8247410de97d642740bb1833658561a56bc52e (diff) | |
download | org-mode-a3576543f5476c4ff617a31a419ffee59461aebb.tar.gz |
org.el: Fix `org-display-outline-path'
* lisp/org.el (org-display-outline-path): Always remove faces when
setting the outline path to display.
See <https://orgmode.org/list/21ef0e94-e766-455c-a45c-fe30e316c121@Spark>
-rw-r--r-- | lisp/org.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/org.el b/lisp/org.el index 5b35d8a..f37c92e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9199,13 +9199,14 @@ If JUST-RETURN-STRING is non-nil, return a string, don't display a message." (when (looking-at org-complex-heading-regexp) (list (match-string 4))))))) (setq res - (org-format-outline-path - path - (1- (frame-width)) - (and file bfn (concat (file-name-nondirectory bfn) separator)) - separator)) + (org-no-properties + (org-format-outline-path + path + (1- (frame-width)) + (and file bfn (concat (file-name-nondirectory bfn) separator)) + separator))) (if just-return-string - (org-no-properties res) + res (org-unlogged-message "%s" res)))) (defvar org-refile-history nil |