From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 20 Oct 2017 23:00:11 +0000 (-0400)
Subject: * lisp/emacs-lisp/debug.el: Use cl-print more systematically
X-Git-Tag: emacs-27.0.90~6234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f44e445d6cc73ffc85f05733756d51d6d4d5dd23;p=emacs.git

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

(debugger-return-value, debugger-eval-expression, debugger--insert-locals):
Use debugger--print.
---

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 473ead12f5a..192333252a1 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -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."