From ed6bdcdd65a9c98b1ac60a061f66a17fd068421a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 6 May 1994 03:07:23 +0000 Subject: [PATCH] (hilit-lookup-face-create): Don't put string values into the global face-font data. --- lisp/hilit19.el | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/lisp/hilit19.el b/lisp/hilit19.el index 3066f200323..4813033bf5f 100644 --- a/lisp/hilit19.el +++ b/lisp/hilit19.el @@ -132,9 +132,6 @@ ;; ;; KNOWN BUGS/TO DO LIST/HELP WANTED/APPLY WITHIN ;; -;; * When more than one size of font is used in different frames, only one -;; font size can have bold & italic properties. -;; ;; * unbalanced, unescaped double quote characters can confuse hilit19. ;; This will be fixed someday, so don't bug me about it. ;; @@ -637,17 +634,11 @@ See the documentation for hilit-translate and hilit-face-translation-table." (set-face-font face nil frame) (set-face-underline-p face (string-match "underline" fn)) (if (string-match ".*bold" fn) - (progn - ;; first, fix up this frame's face - (make-face-bold face frame 'noerr) - ;; now, fix up the face from the global list - (set-face-font face (face-font face frame) t))) + ;; make face bold in all frames + (make-face-bold face nil 'noerr)) (if (string-match ".*italic" fn) - (progn - ;; first, fix up this frame's face - (make-face-italic face frame 'noerr) - ;; now, fix up the face from the global list - (set-face-font face (face-font face frame) t))) + ;; make face italic in all frames + (make-face-italic face nil 'noerr)) )) ))) face) -- 2.39.5