/[emacs]/emacs/lisp/emacs-lisp/edebug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/edebug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.53.2.5 by miles, Thu Apr 1 04:29:03 2004 UTC revision 3.53.2.6 by miles, Tue Jul 6 09:31:50 2004 UTC
# Line 3692  Return the result of the last expression Line 3692  Return the result of the last expression
3692    (setq edebug-previous-result    (setq edebug-previous-result
3693          (concat "Result: "          (concat "Result: "
3694                  (edebug-safe-prin1-to-string edebug-previous-value)                  (edebug-safe-prin1-to-string edebug-previous-value)
3695                  (let ((name (prin1-char edebug-previous-value)))                  (eval-expression-print-format edebug-previous-value))))
                   (if name (concat " = " name))))))  
3696    
3697  (defun edebug-previous-result ()  (defun edebug-previous-result ()
3698    "Print the previous result."    "Print the previous result."
# Line 3712  Print result in minibuffer." Line 3711  Print result in minibuffer."
3711    (princ    (princ
3712     (edebug-outside-excursion     (edebug-outside-excursion
3713      (setq values (cons (edebug-eval edebug-expr) values))      (setq values (cons (edebug-eval edebug-expr) values))
3714      (edebug-safe-prin1-to-string (car values)))))      (concat (edebug-safe-prin1-to-string (car values))
3715                (eval-expression-print-format (car values))))))
3716    
3717  (defun edebug-eval-last-sexp ()  (defun edebug-eval-last-sexp ()
3718    "Evaluate sexp before point in the outside environment; value in minibuffer."    "Evaluate sexp before point in the outside environment; value in minibuffer."

Legend:
Removed from v.3.53.2.5  
changed lines
  Added in v.3.53.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26