Mercurial > emacs
changeset 55800:c9243f2a022c
* emacs-lisp/edebug.el (edebug-compute-previous-result)
(edebug-eval-expression): Print additionally the value returned by
`eval-expression-print-format'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 28 May 2004 21:03:53 +0000 |
| parents | 85609e1fa661 |
| children | 6fe3d9ff80b9 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el Fri May 28 21:00:14 2004 +0000 +++ b/lisp/emacs-lisp/edebug.el Fri May 28 21:03:53 2004 +0000 @@ -3692,8 +3692,7 @@ (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 @@ (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."