diff options
| author | Juri Linkov <juri@jurta.org> | 2004-05-28 21:03:53 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2004-05-28 21:03:53 +0000 |
| commit | 50a27de260a7626356586ba95a460730a4e73747 (patch) | |
| tree | 4f314c6178787f648d573db4e48f45addcb37d7e /lisp/emacs-lisp/edebug.el | |
| parent | fa219ebdf78561d9f74619522ab9c70bc1badafa (diff) | |
| download | emacs-50a27de260a7626356586ba95a460730a4e73747.tar.gz | |
* emacs-lisp/edebug.el (edebug-compute-previous-result)
(edebug-eval-expression): Print additionally the value returned by
`eval-expression-print-format'.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 8a924d045f7..3cebfd2435b 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." |