Mercurial > emacs

changeset 7120:a03d341e9594

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-update-faces): Unset old font.
author Karl Heuer <kwzh@gnu.org>
date Wed, 27 Apr 1994 00:30:55 +0000
parents 19bd3bfc57de
children 1903032117a8
files lisp/faces.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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