mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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