Commit 96757035 authored by Dave Love's avatar Dave Love

(describe-variable): Fix test for customizability.

parent 74399eac
......@@ -768,9 +768,9 @@ Returns the documentation as a string, also."
;; Note, it is not reliable to test only for a custom-type property
;; because those are only present after the var's definition
;; has been loaded.
(if (or (user-variable-p variable)
(get variable 'custom-loads)
(get variable 'custom-type))
(if (or (get variable 'custom-type) ; after defcustom
(get variable 'custom-loads) ; from loaddefs.el
(get variable 'standard-value)) ; from cus-start.el
(let ((customize-label "customize"))
(terpri)
(terpri)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment