[Emacs-diffs] Changes to emacs/lisp/faces.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/09/17 02:13:51

Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.375
retrieving revision 1.376
diff -u -b -r1.375 -r1.376
--- faces.el    31 Aug 2007 07:36:48 -0000      1.375
+++ faces.el    17 Sep 2007 02:13:51 -0000      1.376
@@ -1446,6 +1446,7 @@
 FRAME is the frame whose frame-local face is set.  FRAME nil means
 do it on all frames.  See `defface' for information about SPEC.
 If SPEC is nil, do nothing."
+  (if frame
   (let ((attrs (face-spec-choose spec frame)))
     (when spec
       (face-spec-reset-face face frame))
@@ -1467,8 +1468,10 @@
       (setq attrs (cdr (cdr attrs)))))
   ;; When we reset the face based on its spec, then it is unmodified
   ;; as far as Custom is concerned.
-  (if (null frame)
-      (put (or (get face 'face-alias) face) 'face-modified nil)))
+    (put (or (get face 'face-alias) face) 'face-modified nil)
+    ;; Set each frame according to the rules implied by SPEC.
+    (dolist (frame (frame-list))
+      (face-spec-set face spec frame))))
 
 
 (defun face-attr-match-p (face attrs &optional frame)