[Emacs-diffs] master 23ff664: * lisp/help-fns.el (describe-variable): Let-bind cl-print-compiled-button.

[Noam Postavsky]

branch: master
commit 23ff664fd24dbdd8cc5b9d1fb68423fe6592b0a0
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    * lisp/help-fns.el (describe-variable): Let-bind cl-print-compiled-button.
---
 lisp/help-fns.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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