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

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 32324ae3bcb..d7c31f9e2b8 100644
--- 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)