Mercurial > emacs
changeset 7349:c1a962cf4e7a
(hilit-lookup-face-create): Don't put string values into the global face-font
data.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 06 May 1994 03:07:23 +0000 |
| parents | 99b9c9068761 |
| children | 542ab48d0f18 |
| files | lisp/hilit19.el |
| diffstat | 1 files changed, 4 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/hilit19.el Fri May 06 01:49:51 1994 +0000 +++ b/lisp/hilit19.el Fri May 06 03:07:23 1994 +0000 @@ -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 @@ (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)