(describe-variable): Allow any variable with a defcustom,

even if it is not a user variable.

diff --git a/lisp/help.el b/lisp/help.el
index ce21fa904162461ce5e9b3f66a9e21e5a4fc84f5..f99f6d20cd1ff8d831cbde54d4c46b01086a78b6 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -728,10 +728,10 @@ Returns the documentation as a string, also."
           (help-setup-xref (list #'describe-variable variable) (interactive-p))
 
          ;; Make a link to customize if this variable can be customized.
-         ;; Note, it is not reliable to test for a custom-type property
+         ;; 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 (user-variable-p variable)
+         (if (or (user-variable-p variable) (get variable 'custom-type))
              (let ((customize-label "customize"))
                (terpri)
                (terpri)