From 4829145ae3968cd905f9b20cab0a53b93cb777d4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 5 Jan 2005 01:10:24 +0000 Subject: [PATCH] (custom-declare-face): Record defface in current-load-list. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/cus-face.el | 1 + 2 files changed, 17 insertions(+) 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 + + * 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 * 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)