From: Luc Teirlinck <teirllm@auburn.edu>
Date: Thu, 7 Jul 2005 23:12:43 +0000 (+0000)
Subject: (custom-variable-p): Make it recursively follow aliases.  Mention that
X-Git-Tag: emacs-pretest-22.0.90~8305
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=289e1999ce6316fa8baf9fa693c59cb1c394af19;p=emacs.git

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

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)))