From 99fb9482a869ffded02cf40a7a760f71fc46bfab Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 27 Apr 1994 00:30:55 +0000 Subject: [PATCH] (frame-update-faces): Unset old font. --- lisp/faces.el | 3 +++ 1 file changed, 3 insertions(+) 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 -- 2.39.5