diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-27 00:30:55 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-27 00:30:55 +0000 |
| commit | 99fb9482a869ffded02cf40a7a760f71fc46bfab (patch) | |
| tree | 20af83818985e5b307c1b55ad04330ac6e86e810 /lisp | |
| parent | 79d112384776502176edd8c21e0d727d078c2f6b (diff) | |
| download | emacs-99fb9482a869ffded02cf40a7a760f71fc46bfab.tar.gz emacs-99fb9482a869ffded02cf40a7a760f71fc46bfab.tar.bz2 emacs-99fb9482a869ffded02cf40a7a760f71fc46bfab.zip | |
(frame-update-faces): Unset old font.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index bb506e6812a..36336f9b360 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -840,6 +840,9 @@ selected frame." (if (listp font) (let ((bold (memq 'bold font)) (italic (memq 'italic font))) + ;; Ignore any previous (string-valued) font, it might not even + ;; be the right size anymore. + (set-face-font face nil frame) (cond ((and bold italic) (make-face-bold-italic face frame t)) (bold |