From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 27 Apr 1994 00:30:55 +0000 (+0000)
Subject: (frame-update-faces): Unset old font.
X-Git-Tag: emacs-19.34~8733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99fb9482a869ffded02cf40a7a760f71fc46bfab;p=emacs.git

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

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