(describe-variable): Add a button to call

customize-variable if the variable can be customized.

1 files changed, 16 insertions, 0 deletions

diff --git a/lisp/help.el b/lisp/help.el
index 4357963baa5..1c15f4f87e4 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -733,6 +733,22 @@ Returns the documentation as a string, also."
           (let ((doc (documentation-property variable 'variable-documentation)))
             (princ (or doc "not documented as a variable.")))
           (help-setup-xref (cons #'describe-variable variable) (interactive-p))
+
+          ;; Make a link to customize if this variable can be customized.
+          (if (or (get variable 'custom-type)
+                  (user-variable-p variable))
+              (let ((customize-label "customize"))
+                (terpri)
+                (terpri)
+                (princ (concat "You can " customize-label " this variable."))
+                (with-current-buffer "*Help*"
+                  (save-excursion
+                    (re-search-backward 
+                     (concat "\\(" customize-label "\\)") nil t)
+                    (help-xref-button 1 #'(lambda (v)
+                                            (customize-variable v)) variable)
+                    ))))
+
           (print-help-return-message)
           (save-excursion
             (set-buffer standard-output)