diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-07-01 20:54:41 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-07-02 11:57:34 -0400 |
| commit | 9a65b5779629d4f0f88d568ff164629e82db5ba8 (patch) | |
| tree | 3310b99a0e3d9c961b6ecfda3380e6bb3ee50124 | |
| parent | 34d4720f833bb382b28d9faecf82d34db1eb4494 (diff) | |
| download | emacs-9a65b5779629d4f0f88d568ff164629e82db5ba8.tar.gz | |
* 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.
| -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) |