518 |
|
|
519 |
;; This test is also in the C code of `user-variable-p'. |
;; This test is also in the C code of `user-variable-p'. |
520 |
(defun custom-variable-p (variable) |
(defun custom-variable-p (variable) |
521 |
"Return non-nil if VARIABLE is a custom variable." |
"Return non-nil if VARIABLE is a custom variable. |
522 |
|
This recursively follows aliases." |
523 |
|
(setq variable (indirect-variable variable)) |
524 |
(or (get variable 'standard-value) |
(or (get variable 'standard-value) |
525 |
(get variable 'custom-autoload))) |
(get variable 'custom-autoload))) |
526 |
|
|