summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bastien.guerry@data.gouv.fr>2020-09-09 09:57:45 +0200
committerBastien Guerry <bastien.guerry@data.gouv.fr>2020-09-09 09:57:45 +0200
commit7a12e149907b5921011710d869b7554c35859c89 (patch)
treeafcf99fffa45e34b57888f50a1c189263ae0a016
parent570bd6ce93d3556705cb5be7212c81271232c2de (diff)
downloadorg-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.el14
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))))