From: Juri Linkov <juri@jurta.org>
Date: Fri, 28 May 2004 21:03:53 +0000 (+0000)
Subject: * emacs-lisp/edebug.el (edebug-compute-previous-result)
X-Git-Tag: ttn-vms-21-2-B4~6040
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/50a27de260a7626356586ba95a460730a4e73747?ds=inline

* emacs-lisp/edebug.el (edebug-compute-previous-result)
(edebug-eval-expression): Print additionally the value returned by
`eval-expression-print-format'.
---

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 8a924d045f..3cebfd2435 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -3692,8 +3692,7 @@ Return the result of the last expression."
   (setq edebug-previous-result
 	(concat "Result: "
 		(edebug-safe-prin1-to-string edebug-previous-value)
-		(let ((name (prin1-char edebug-previous-value)))
-		  (if name (concat " = " name))))))
+		(eval-expression-print-format edebug-previous-value))))
 
 (defun edebug-previous-result ()
   "Print the previous result."
@@ -3712,7 +3711,8 @@ Print result in minibuffer."
   (princ
    (edebug-outside-excursion
     (setq values (cons (edebug-eval edebug-expr) values))
-    (edebug-safe-prin1-to-string (car values)))))
+    (concat (edebug-safe-prin1-to-string (car values))
+            (eval-expression-print-format (car values))))))
 
 (defun edebug-eval-last-sexp ()
   "Evaluate sexp before point in the outside environment; value in minibuffer."