[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el

[Juri Linkov]

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