# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767406655 0
# Node ID a03d341e95949c12c7dd46d3e2f9e03a480a2fd2
# Parent  19bd3bfc57de654ae408ac9f22bff029b4a50f5f
(frame-update-faces): Unset old font.

diff -r 19bd3bfc57de -r a03d341e9594 lisp/faces.el
--- a/lisp/faces.el	Tue Apr 26 22:21:24 1994 +0000
+++ b/lisp/faces.el	Wed Apr 27 00:30:55 1994 +0000
@@ -840,6 +840,9 @@
 	(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