Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419

[bpt/emacs.git] / lisp / cus-face.el

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index f1744cc..33c8c99 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -39,21 +39,18 @@
     (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))
            (make-face-x-resource-internal face))))
     ;; Don't record SPEC until we see it causes no errors.
     (put face 'face-defface-spec spec)
+    (push (cons 'defface face) current-load-list)
     (when (and doc (null (face-documentation face)))
       (set-face-documentation face (purecopy doc)))
     (custom-handle-all-keywords face args 'custom-face)
@@ -199,11 +196,11 @@
 
     (:foreground
      (color :tag "Foreground"
-           :help-echo "Set foreground color."))
+           :help-echo "Set foreground color (name or #RRGGBB hex spec)."))
 
     (:background
      (color :tag "Background"
-           :help-echo "Set background color."))
+           :help-echo "Set background color (name or #RRGGBB hex spec)."))
 
     (:stipple
      (choice :tag "Stipple"
@@ -394,4 +391,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