(frame-update-face-colors): New function.

1 files changed, 32 insertions, 0 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index 289e63267eb..8b0741658ff 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -953,6 +953,38 @@ selected frame."
       (setq rest (cdr rest)))
     frame)))
 
+;; Update the colors of FACE, after FRAME's own colors have been changed.
+;; This applies only to faces with global color specifications
+;; that are not simple constants.
+(defun frame-update-face-colors (frame)
+  (let ((faces global-face-data))
+    (while faces
+      (condition-case nil
+          (let* ((data (cdr (car faces)))
+                 (face (car (car faces)))
+                 (foreground (face-foreground data))
+                 (background (face-background data)))
+            ;; If the global spec is a specific color,
+            ;; which doesn't depend on the frame's attributes,
+            ;; we don't need to recalculate it now.
+            (or (listp foreground)
+                (setq foreground nil))
+            (or (listp background)
+                (setq background nil))
+            ;; If we are going to frob this face at all,
+            ;; reinitialize it first.
+            (if (or foreground background)
+                (progn (set-face-foreground face nil frame)
+                       (set-face-background face nil frame)))
+            (if foreground
+                (face-try-color-list 'set-face-foreground
+                                     face foreground frame))
+            (if background
+                (face-try-color-list 'set-face-background
+                                     face background frame)))
+        (error nil))
+      (setq faces (cdr faces)))))
+
 ;; 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.