[Emacs-diffs] master 9a65b57: * lisp/emacs-lisp/cl-print.el (cl-print-compiled-button): t by default.

[Noam Postavsky]

branch: master
commit 9a65b5779629d4f0f88d568ff164629e82db5ba8
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    * 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.
---
 lisp/emacs-lisp/cl-print.el | 2 +-
 lisp/emacs-lisp/debug.el    | 3 ---
 lisp/help-fns.el            | 5 +----
 3 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el
index 824d0b7..e9ca041 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 b836e82..2b87825 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 d7c31f9..32324ae 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)