소스 검색

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>
Bastien Guerry 5 년 전
부모
커밋
7a12e14990
1개의 변경된 파일8개의 추가작업 그리고 6개의 파일을 삭제
  1. 8 6
      lisp/org.el

+ 8 - 6
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))))