Mercurial > emacs

changeset 84613:f8c971a5c815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-theme-set-faces): Undo previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 Sep 2007 02:55:09 +0000
parents 94df91d0b63e
children 1614647d57b0
files lisp/cus-face.el
diffstat 1 files changed, 10 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-face.el	Mon Sep 17 02:13:51 2007 +0000
+++ b/lisp/cus-face.el	Mon Sep 17 02:55:09 2007 +0000
@@ -342,17 +342,16 @@
 		(unless (facep face)
 		  (make-empty-face face))
 		(put face 'face-comment comment)
-		(dolist (frame (frame-list))
-		  (face-spec-set face spec frame)))
-	    (setq args (cdr args)))
-	;; Old format, a plist of FACE SPEC pairs.
-	(let ((face (nth 0 args))
-	      (spec (nth 1 args)))
-	  (if (get face 'face-alias)
-		  (setq face (get face 'face-alias)))
-	  (put face 'saved-face spec)
-	  (custom-push-theme 'theme-face face theme 'set spec))
-	(setq args (cdr (cdr args))))))))
+		(face-spec-set face spec nil))
+	      (setq args (cdr args)))
+	  ;; Old format, a plist of FACE SPEC pairs.
+	  (let ((face (nth 0 args))
+		(spec (nth 1 args)))
+	    (if (get face 'face-alias)
+		(setq face (get face 'face-alias)))
+	    (put face 'saved-face spec)
+	    (custom-push-theme 'theme-face face theme 'set spec))
+	  (setq args (cdr (cdr args))))))))
 
 ;; XEmacs compability function.  In XEmacs, when you reset a Custom
 ;; Theme, you have to specify the theme to reset it to.  We just apply