(custom-variable-p): Make it recursively follow aliases. Mention that

in the docstring.

diff --git a/lisp/custom.el b/lisp/custom.el
index a8c9b864537a2c9c75092bf4160ac2df31b899d2..8c2c50b6454e7b63f8ad4c9d14bac25a19712676 100644 (file)
--- 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)))