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

2 files changed, 17 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2492b1e0669..7efce4fa93b 100644
--- 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 0f3f6018cfc..33c8c995a4c 100644
--- 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)