/[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.149.2.3 by miles, Mon Jun 28 07:29:46 2004 UTC revision 1.149.2.4 by miles, Fri Aug 27 07:00:26 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.149.2.3  
changed lines
  Added in v.1.149.2.4

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