[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el |
Date: |
Fri, 28 May 2004 23:07:06 -0400 |
Index: emacs/lisp/emacs-lisp/edebug.el
diff -c emacs/lisp/emacs-lisp/edebug.el:3.67
emacs/lisp/emacs-lisp/edebug.el:3.68
*** emacs/lisp/emacs-lisp/edebug.el:3.67 Mon Mar 22 15:27:46 2004
--- emacs/lisp/emacs-lisp/edebug.el Fri May 28 21:03:53 2004
***************
*** 3692,3699 ****
(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))))))
(defun edebug-previous-result ()
"Print the previous result."
--- 3692,3698 ----
(setq edebug-previous-result
(concat "Result: "
(edebug-safe-prin1-to-string edebug-previous-value)
! (eval-expression-print-format edebug-previous-value))))
(defun edebug-previous-result ()
"Print the previous result."
***************
*** 3712,3718 ****
(princ
(edebug-outside-excursion
(setq values (cons (edebug-eval edebug-expr) values))
! (edebug-safe-prin1-to-string (car values)))))
(defun edebug-eval-last-sexp ()
"Evaluate sexp before point in the outside environment; value in
minibuffer."
--- 3711,3718 ----
(princ
(edebug-outside-excursion
(setq values (cons (edebug-eval edebug-expr) 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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el,
Juri Linkov <=