X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/a39979074bd2b2ad36de9ae41222cd2b0e869c6e..937640a621a4ce2e5e56eaecca37a2a28a584318:/lisp/cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 4b33f1e4f0..e3134e8f1e 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -39,15 +39,11 @@
     (when (fboundp 'facep)
       (unless (facep face)
 	;; If the user has already created the face, respect that.
-	(let ((value (or (get face 'saved-face) spec))
-	      (frames (frame-list))
-	      frame)
+	(let ((value (or (get face 'saved-face) spec)))
 	  ;; Create global face.
 	  (make-empty-face face)
 	  ;; Create frame-local faces
-	  (while frames
-	    (setq frame (car frames)
-		  frames (cdr frames))
+	  (dolist (frame (frame-list))
 	    (face-spec-set face value frame)))
 	;; When making a face after frames already exist
 	(if (memq window-system '(x w32))
@@ -86,7 +82,7 @@
 	     (const :tag "ultracondensed" ultra-condensed)
 	     (const :tag "ultraexpanded" ultra-expanded)
 	     (const :tag "wide" extra-expanded)))
-    
+
     (:height
      (choice :tag "Height"
 	     :help-echo "Face's font height."
@@ -113,7 +109,7 @@
 	     (const :tag "semilight" semi-light)
 	     (const :tag "ultralight" ultra-light)
 	     (const :tag "ultrabold" ultra-bold)))
-    
+
     (:slant
      (choice :tag "Slant"
 	     :help-echo "Font slant."
@@ -121,28 +117,28 @@
 	     (const :tag "italic" italic)
 	     (const :tag "oblique" oblique)
 	     (const :tag "normal" normal)))
-    
+
     (:underline
      (choice :tag "Underline"
 	     :help-echo "Control text underlining."
 	     (const :tag "Off" nil)
 	     (const :tag "On" t)
 	     (color :tag "Colored")))
-    
+
     (:overline
      (choice :tag "Overline"
 	     :help-echo "Control text overlining."
 	     (const :tag "Off" nil)
 	     (const :tag "On" t)
 	     (color :tag "Colored")))
-    
+
     (:strike-through
      (choice :tag "Strike-through"
 	     :help-echo "Control text strike-through."
 	     (const :tag "Off" nil)
 	     (const :tag "On" t)
 	     (color :tag "Colored")))
-    
+
     (:box
      ;; Fixme: this can probably be done better.
      (choice :tag "Box around text"
@@ -190,21 +186,21 @@
 		     (nconc (and lwidth `(:line-width ,lwidth))
 			    (and color  `(:color ,color))
 			    (and style  `(:style ,style)))))))))
-    
+
     (:inverse-video
      (choice :tag "Inverse-video"
 	     :help-echo "Control whether text should be in inverse-video."
 	     (const :tag "Off" nil)
 	     (const :tag "On" t)))
-    
+
     (:foreground
      (color :tag "Foreground"
 	    :help-echo "Set foreground color."))
-    
+
     (:background
      (color :tag "Background"
 	    :help-echo "Set background color."))
-    
+
     (:stipple
      (choice :tag "Stipple"
 	     :help-echo "Background bit-mask"
@@ -230,7 +226,7 @@
        (if (and (consp cus-value) (null (cdr cus-value)))
 	   (car cus-value)
 	 cus-value))))
-       
+
   "Alist of face attributes.
 
 The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
@@ -394,4 +390,5 @@ ARGS is defined as for `custom-theme-reset-faces'"
 
 (provide 'cus-face)
 
+;;; arch-tag: 9a5c4b63-0d27-4c92-a5af-f2c7ed764c2b
 ;;; cus-face.el ends here