(frame-update-faces): Unset old font.

1994-04-27 00:30:55 +00:00 · 1994-04-27 00:30:55 +00:00 · 99fb9482a8
commit 99fb9482a8
parent 79d1123847
1 changed files with 3 additions and 0 deletions
--- 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