diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-06 03:07:23 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-06 03:07:23 +0000 |
| commit | 5d51f4ec91668d657ab11bcfeabaf981fd94da49 (patch) | |
| tree | 2fa2a94c29d0a011f3cec9b608d996be9035a6f7 /lisp/hilit19.el | |
| parent | 9ffa9640121b06da0f12ba9635f89adcbb65cb4e (diff) | |
| download | emacs-5d51f4ec91668d657ab11bcfeabaf981fd94da49.tar.gz | |
(hilit-lookup-face-create): Don't put string values into the global face-font
data.
Diffstat (limited to 'lisp/hilit19.el')
| -rw-r--r-- | lisp/hilit19.el | 17 |
1 files 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) |