* 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.

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 824d0b7b4f51f50021bf88a4b000d0d6826ed4ba..e9ca041284802ecc463e407c90a89ec85c79b3c2 100644 (file)
--- 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 b836e823c7348ca4607aada6fd5a2a226b9b1bd1..2b8782590c4a91c8109148a85315ebbe655891ec 100644 (file)
--- 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)))
 \f
 
-(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 d7c31f9e2b86cd30754c46b3b8e7fb06b24a83cb..32324ae3bcb6d7d5c38f90722b47e61010f143ff 100644 (file)
--- 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)