From 289e1999ce6316fa8baf9fa693c59cb1c394af19 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Thu, 7 Jul 2005 23:12:43 +0000 Subject: [PATCH] (custom-variable-p): Make it recursively follow aliases. Mention that in the docstring. --- lisp/custom.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.39.2