Mercurial > emacs
changeset 49099:04672e32e3b0
(custom-autoload, custom-variable-p): New functions.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Tue, 07 Jan 2003 18:33:18 +0000 |
| parents | df17d939ba8b |
| children | b418e4d949ac |
| files | lisp/custom.el |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Tue Jan 07 17:53:56 2003 +0000 +++ b/lisp/custom.el Tue Jan 07 18:33:18 2003 +0000 @@ -481,6 +481,17 @@ (unless (member load loads) (put symbol 'custom-loads (cons (purecopy load) loads))))) +(defun custom-autoload (symbol load) + "Mark SYMBOL as autoloaded custom variable and add dependency LOAD." + (put symbol 'custom-autoload t) + (custom-add-load symbol load)) + +;; This test is also in the C code of `user-variable-p'. +(defun custom-variable-p (variable) + "Return non-nil if VARIABLE is a custom variable." + (or (get variable 'standard-value) + (get variable 'custom-autoload))) + ;;; Loading files needed to customize a symbol. ;;; This is in custom.el because menu-bar.el needs it for toggle cmds.