(custom-variable-p): Make it recursively follow aliases. Mention that
in the docstring.
This commit is contained in:
parent
c778ed4955
commit
289e1999ce
1 changed files with 3 additions and 1 deletions
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue