# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1120777963 0
# Node ID 8633ed45b13c3160eb784dbaf0cd5cd87fc0f575
# Parent  a77d510ff94d5a9eedc640362b65b5c1e801a8c8
(custom-variable-p): Make it recursively follow aliases.  Mention that
in the docstring.

diff -r a77d510ff94d -r 8633ed45b13c lisp/custom.el
--- 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)))