# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104887401 0
# Node ID 7c06e308c3542a55753ee23ec7352d7a4829cdd1
# Parent  658501d06a20d82cb4323038f36b355da98e3772
(custom-declare-face): Record defface in current-load-list.

diff -r 658501d06a20 -r 7c06e308c354 lisp/cus-face.el
--- a/lisp/cus-face.el	Wed Jan 05 01:09:23 2005 +0000
+++ b/lisp/cus-face.el	Wed Jan 05 01:10:01 2005 +0000
@@ -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)