# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 968320230 0
# Node ID d7a98f35b44180b3f5b91387e8614473c583d3e0
# Parent  55a7016ebd6959fd5ed2f850d751da0ae209018d
(set-face-attribute): Simplify by calling
internal-set-lisp-face-attribute with FRAME being 0.

diff -r 55a7016ebd69 -r d7a98f35b441 lisp/faces.el
--- a/lisp/faces.el	Thu Sep 07 09:49:56 2000 +0000
+++ b/lisp/faces.el	Thu Sep 07 09:50:30 2000 +0000
@@ -546,26 +546,13 @@
 VALUE is the name of a face from which to inherit attributes, or a list
 of face names.  Attributes from inherited faces are merged into the face
 like an underlying face would be, with higher priority than underlying faces."
-  (setq args (purecopy args))
-  (cond ((null frame)
-	 ;; Change face on all frames.
-	 (dolist (frame (frame-list))
-	   (let ((list args))
-	     (while list
-	       (internal-set-lisp-face-attribute face (car list)
-						 (cadr list) frame)
-	       (setq list (cdr (cdr list))))))
-	 ;; Record that as a default for new frames.
-	 (while args
-	   (internal-set-lisp-face-attribute face (car args)
-					     (cadr args) t)
-	   (setq args (cdr (cdr args)))))
-	(t
-	 (while args
-	   (internal-set-lisp-face-attribute face (car args)
-					     (purecopy (cadr args))
-					     frame)
-	   (setq args (cdr (cdr args)))))))
+  (let ((where (if (null frame) 0 frame)))
+    (setq args (purecopy args))
+    (while args
+      (internal-set-lisp-face-attribute face (car args)
+					(purecopy (cadr args))
+					where)
+      (setq args (cdr (cdr args))))))
 
 
 (defun make-face-bold (face &optional frame noerror)