diff options
author | Bastien Guerry <bastien.guerry@data.gouv.fr> | 2020-09-09 09:57:45 +0200 |
---|---|---|
committer | Bastien Guerry <bastien.guerry@data.gouv.fr> | 2020-09-09 09:57:45 +0200 |
commit | 7a12e149907b5921011710d869b7554c35859c89 (patch) | |
tree | afcf99fffa45e34b57888f50a1c189263ae0a016 | |
parent | 570bd6ce93d3556705cb5be7212c81271232c2de (diff) | |
download | org-mode-7a12e149907b5921011710d869b7554c35859c89.tar.gz |
org.el (org-display-outline-path): Fix faces of the message
* lisp/org.el (org-display-outline-path): Set :height as the
default face height, and don't change other face attributes.
See a3576543f for a previous fix, and this discussion:
<https://orgmode.org/list/21ef0e94-e766-455c-a45c-fe30e316c121@Spark>
-rw-r--r-- | lisp/org.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/org.el b/lisp/org.el index ae53c24..2b6ed2a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8042,12 +8042,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-no-properties - (org-format-outline-path - path - (1- (frame-width)) - (and file bfn (concat (file-name-nondirectory bfn) separator)) - separator))) + (org-format-outline-path + path + (1- (frame-width)) + (and file bfn (concat (file-name-nondirectory bfn) separator)) + separator)) + (add-face-text-property 0 (length res) + `((t :height ,(face-attribute 'default :height))) + nil res) (if just-return-string res (org-unlogged-message "%s" res)))) |