Add a provide statement.

[gnu-emacs] / lisp / cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 4b33f1e4f04fb41836a5fb3530a0d2306bce352d..e3134e8f1ea8f378765182a0d154cf0375eddc7f 100644 (file)
--- 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