Mercurial > emacs
changeset 64149:8633ed45b13c
(custom-variable-p): Make it recursively follow aliases. Mention that
in the docstring.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Thu, 07 Jul 2005 23:12:43 +0000 |
| parents | a77d510ff94d |
| children | 50ac59c8d9bd |
| files | lisp/custom.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Thu Jul 07 23:09:00 2005 +0000 +++ b/lisp/custom.el Thu Jul 07 23:12:43 2005 +0000 @@ -518,7 +518,9 @@ ;; 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)))