* lisp/emacs-lisp/cl-print.el (cl-print-compiled-button): t by default.

* lisp/emacs-lisp/debug.el (debugger-insert-backtrace):
* lisp/help-fns.el (describe-variable): No need to let-bind
`cl-print-compiled-button' to t anymore.

3 files changed, 2 insertions, 8 deletions

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 824d0b7b4f5..e9ca0412848 100644
--- a/lisp/emacs-lisp/cl-print.el
+++ b/lisp/emacs-lisp/cl-print.el
@@ -90,7 +90,7 @@ call other entry points instead, such as `cl-prin1'."
 - `disassemble' to print the disassembly of the code.
 - nil to skip printing any details about the code.")
 
-(defvar cl-print-compiled-button nil
+(defvar cl-print-compiled-button t
   "Control how to print byte-compiled functions into buffers.
 When the stream is a buffer, make the bytecode part of the output
 into a button whose action shows the function's disassembly.")
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index b836e823c73..2b8782590c4 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -271,13 +271,10 @@ first will be printed into the backtrace buffer."
       debugger-value)))
 
 
-(defvar cl-print-compiled-button)
-
 (defun debugger-insert-backtrace (frames do-xrefs)
   "Format and insert the backtrace FRAMES at point.
 Make functions into cross-reference buttons if DO-XREFS is non-nil."
   (let ((standard-output (current-buffer))
-        (cl-print-compiled-button t)
         (eval-buffers eval-buffer-list))
     (require 'help-mode)     ; Define `help-function-def' button type.
     (pcase-dolist (`(,evald ,fun ,args ,flags) frames)
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d7c31f9e2b8..32324ae3bcb 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -776,8 +776,6 @@ 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).
@@ -858,8 +856,7 @@ it is displayed along with the global value."
                       (print-rep
                        (let ((rep
                               (let ((print-quoted t)
-                                    (print-circle t)
-                                    (cl-print-compiled-button t))
+                                    (print-circle t))
                                 (cl-prin1-to-string val))))
                          (if (and (symbolp val) (not (booleanp val)))
                              (format-message "`%s'" rep)