1 files changed, 3 insertions, 0 deletions

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