* lisp/help-fns.el (describe-variable): Let-bind cl-print-compiled-button.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 32324ae3bcb6d7d5c38f90722b47e61010f143ff..d7c31f9e2b86cd30754c46b3b8e7fb06b24a83cb 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -776,6 +776,8 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
                            version package))))))
     output))
 
+(defvar cl-print-compiled-button)
+
 ;;;###autoload
 (defun describe-variable (variable &optional buffer frame)
   "Display the full documentation of VARIABLE (a symbol).
@@ -856,7 +858,8 @@ it is displayed along with the global value."
                      (print-rep
                       (let ((rep
                              (let ((print-quoted t)
-                                    (print-circle t))
+                                    (print-circle t)
+                                    (cl-print-compiled-button t))
                                (cl-prin1-to-string val))))
                         (if (and (symbolp val) (not (booleanp val)))
                             (format-message "`%s'" rep)