diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-07 23:12:43 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-07 23:12:43 +0000 |
| commit | e719a92c4336394d91714840caaf56c71ebd98ac (patch) | |
| tree | 08e6fe006de63197d6b9059baa61cecc4d909dc0 /lisp/custom.el | |
| parent | 547f1e3088b52c6f8c2bdbd2344556f0e4ac9a7a (diff) | |
| download | emacs-e719a92c4336394d91714840caaf56c71ebd98ac.tar.gz | |
(custom-variable-p): Make it recursively follow aliases. Mention that
in the docstring.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index a8c9b864537..8c2c50b6454 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -518,7 +518,9 @@ LOAD should be either a library file name, or a feature name." ;; 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." + "Return non-nil if VARIABLE is a custom variable. +This recursively follows aliases." + (setq variable (indirect-variable variable)) (or (get variable 'standard-value) (get variable 'custom-autoload))) |