diff options
| author | Luc Teirlinck | 2005-07-07 23:12:43 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-07-07 23:12:43 +0000 |
| commit | 289e1999ce6316fa8baf9fa693c59cb1c394af19 (patch) | |
| tree | 91a515761c94ca3979f26c1995fa63d232a9e8bd | |
| parent | c778ed49552c6c931d16955221ef29470e1dbe3a (diff) | |
| download | emacs-289e1999ce6316fa8baf9fa693c59cb1c394af19.tar.gz emacs-289e1999ce6316fa8baf9fa693c59cb1c394af19.zip | |
(custom-variable-p): Make it recursively follow aliases. Mention that
in the docstring.
| -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." | |||
| 518 | 518 | ||
| 519 | ;; This test is also in the C code of `user-variable-p'. | 519 | ;; This test is also in the C code of `user-variable-p'. |
| 520 | (defun custom-variable-p (variable) | 520 | (defun custom-variable-p (variable) |
| 521 | "Return non-nil if VARIABLE is a custom variable." | 521 | "Return non-nil if VARIABLE is a custom variable. |
| 522 | This recursively follows aliases." | ||
| 523 | (setq variable (indirect-variable variable)) | ||
| 522 | (or (get variable 'standard-value) | 524 | (or (get variable 'standard-value) |
| 523 | (get variable 'custom-autoload))) | 525 | (get variable 'custom-autoload))) |
| 524 | 526 | ||