diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 3 | ||||
| -rw-r--r-- | 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 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) |