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

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

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

revision 1.160 by jurta, Thu Jun 10 04:16:05 2004 UTC revision 1.161 by rms, Mon Aug 16 22:44:11 2004 UTC
# Line 555  With argument, print output into current Line 555  With argument, print output into current
555          ))))          ))))
556    
557    
558    (defvar eval-last-sexp-fake-value (make-symbol "t"))
559    
560  (defun eval-last-sexp (eval-last-sexp-arg-internal)  (defun eval-last-sexp (eval-last-sexp-arg-internal)
561    "Evaluate sexp before point; print value in minibuffer.    "Evaluate sexp before point; print value in minibuffer.
562  Interactively, with prefix argument, print output into current buffer."  Interactively, with prefix argument, print output into current buffer."
563    (interactive "P")    (interactive "P")
564    (if (null eval-expression-debug-on-error)    (if (null eval-expression-debug-on-error)
565        (eval-last-sexp-1 eval-last-sexp-arg-internal)        (eval-last-sexp-1 eval-last-sexp-arg-internal)
566      (let ((old-value (make-symbol "t")) new-value value)      (let ((old-value eval-last-sexp-fake-value) new-value value)
567        (let ((debug-on-error old-value))        (let ((debug-on-error old-value))
568          (setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))          (setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))
569          (setq new-value debug-on-error))          (setq new-value debug-on-error))

Legend:
Removed from v.1.160  
changed lines
  Added in v.1.161

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