(describe-variable): Use custom-variable-p.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 46a72b32ba20a71b472986ba559edd249a92e2c4..2b61cd88d47c559b052d3acd853c56cb911fdd22 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -464,12 +464,7 @@ it is displayed along with the global value."
                 (terpri))
               (princ (or doc "Not documented as a variable.")))
            ;; Make a link to customize if this variable can be customized.
-           ;; 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 (get variable 'custom-type) ; after defcustom
-                   (get variable 'custom-loads) ; from loaddefs.el
-                   (get variable 'standard-value)) ; from cus-start.el
+           (if (custom-variable-p variable)
                (let ((customize-label "customize"))
                  (terpri)
                  (terpri)