procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/debug.el: Use cl-print more systematically

Browse source 
(debugger-return-value, debugger-eval-expression, debugger--insert-locals):
Use debugger--print.
This commit is contained in:
Stefan Monnier 2017-10-20 19:00:11 -04:00
parent 3b03124a93
commit f44e445d6c
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/debug.el
View file

@ -420,7 +420,7 @@ will be used, such as in a debug on exit from a frame."
"from an error" "at function entrance")))
(setq debugger-value val)
(princ "Returning " t)
(prin1 debugger-value)
(debugger--print debugger-value)
(save-excursion
;; Check to see if we've flagged some frame for debug-on-exit, in which
;; case we'll probably come back to the debugger soon.
@ -535,7 +535,7 @@ The environment used is the one when entering the activation frame at point."
(debugger-env-macro
(let ((val (backtrace-eval exp nframe base)))
(prog1
(prin1 val t)
(debugger--print val t)
(let ((str (eval-expression-print-format val)))
(if str (princ str t))))))))
@ -557,7 +557,7 @@ The environment used is the one when entering the activation frame at point."
(insert "\n ")
(prin1 symbol (current-buffer))
(insert " = ")
(prin1 value (current-buffer))))))))
(debugger--print value (current-buffer))))))))
(defun debugger--show-locals ()
"For the frame at point, insert locals and add text properties."