mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

* emacs-lisp/edebug.el (edebug-compute-previous-result)

Browse source 
(edebug-eval-expression): Print additionally the value returned by
`eval-expression-print-format'.
This commit is contained in:
Juri Linkov 2004-05-28 21:03:53 +00:00
parent fa219ebdf7
commit 50a27de260
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/edebug.el
View file

@ -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."