(frame-update-faces): New function.

diff --git a/lisp/faces.el b/lisp/faces.el
index 06f3c4bdc3e8e46c2259719ec16c16d3cba6f145..bb506e6812a674f471da68491398d6c8ef38a781 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -830,6 +830,25 @@ selected frame."
        (modify-frame-parameters frame (list visibility-spec)))
       frame)))
 
+;; Update a frame's faces when we change its default font.
+(defun frame-update-faces (frame)
+  (let* ((faces global-face-data)
+        (rest faces))
+    (while rest
+      (let* ((face (car (car rest)))
+            (font (face-font face t)))
+       (if (listp font)
+           (let ((bold (memq 'bold font))
+                 (italic (memq 'italic font)))
+             (cond ((and bold italic)
+                    (make-face-bold-italic face frame t))
+                   (bold
+                    (make-face-bold face frame t))
+                   (italic
+                    (make-face-italic face frame t)))))
+      (setq rest (cdr rest)))
+    frame)))
+
 ;; Fill in the face FACE from frame-independent face data DATA.
 ;; DATA should be the non-frame-specific ("global") face vector
 ;; for the face.  FACE should be a face name or face object.