(custom-declare-face): Record defface in current-load-list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2492b1e0669f254fb9cc97c7770e608a28c8132b..7efce4fa93bb0ef24a05a7ec2281ddfa90c0921b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2005-01-04  Richard M. Stallman  <rms@gnu.org>
+
+       * cus-face.el (custom-declare-face):
+       Record defface in current-load-list.
+
+       * help-fns.el (variable-at-point): New arg ANY-SYMBOL.
+
+       * emacs-lisp/find-func.el: Doc fixes.
+       (find-face-regexp): New variable.
+       (find-function-regexp-alist): New variable.
+       (find-function-C-source): Third arg is now TYPE.
+       (find-function-search-for-symbol): Handle general TYPE.
+       (find-function-read, find-function-do-it): Handle general TYPE.
+       (find-definition-noselect, find-face): New functions.
+       (function-at-point): Alias deleted.
+
 2005-01-04  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * battery.el (display-battery-mode): Rename from display-battery.

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 0f3f6018cfc06f365cbf414deb5048870b003b26..33c8c995a4c83b7a8263eb840205f9f1dfe5b37d 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -50,6 +50,7 @@
            (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)