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 /lisp/emacs-lisp | |
| parent | 34d4720f833bb382b28d9faecf82d34db1eb4494 (diff) | |
| download | emacs-9a65b5779629d4f0f88d568ff164629e82db5ba8.tar.gz emacs-9a65b5779629d4f0f88d568ff164629e82db5ba8.tar.bz2 emacs-9a65b5779629d4f0f88d568ff164629e82db5ba8.zip | |
* 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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 3 |
2 files changed, 1 insertions, 4 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) |