(eval-last-sexp-1): Renamed from

eval-last-sexp.  Don't bind debug-on-error here.
(eval-last-sexp): New function.  Bind debug-on-error if
eval-expression-debug-on-error is non-nil.
(eval-defun-2, eval-defun): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e9c8de220f07ae449ecbb97884044fe9da5a5e80..d9fc7693054b6d4fef77f700c539be85741ebfd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2000-01-12  Gerd Moellmann  <gerd@gnu.org>
+
+       * emacs-lisp/lisp-mode.el (eval-last-sexp-1): Renamed from
+       eval-last-sexp.  Don't bind debug-on-error here.
+       (eval-last-sexp): New function.  Bind debug-on-error if
+       eval-expression-debug-on-error is non-nil.
+       (eval-defun-2, eval-defun): Likewise.
+
+       * simple.el (eval-expression): Don't bind debug-on-error if
+       eval-expression-debug-on-error is nil.  Detect changed
+       debug-on-error, and propagate new value to global binding, if
+       eval-expression-debug-on-error is non-nil,
+       (eval-expression-debug-on-error): Change doc string.
+       
 2000-01-11  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
 
        * emacs-lisp/edebug.el (with-syntax-table): Add a def-edebug-spec.

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 6135d100fbfed2a1cf944ad92bdea7060aa4f7ee..6d4bfc871ca670872a52ad2d78786ba633f9b263 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -332,12 +332,10 @@ if that value is non-nil."
     (eval-last-sexp t)
     (terpri)))
 \f
-(defun eval-last-sexp (eval-last-sexp-arg-internal)
+(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
   "Evaluate sexp before point; print value in minibuffer.
 With argument, print output into current buffer."
-  (interactive "P")
-  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))
-       (debug-on-error eval-expression-debug-on-error))
+  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
     (let ((value
           (eval (let ((stab (syntax-table))
                       (opoint (point))
@@ -385,6 +383,20 @@ With argument, print output into current buffer."
            (print-level eval-expression-print-level))
        (prin1 value)))))
 
+(defun eval-last-sexp (eval-last-sexp-arg-internal)
+  "Evaluate sexp before point; print value in minibuffer.
+With argument, print output into current buffer."
+  (interactive "P")
+  (if (null eval-expression-debug-on-error)
+      (eval-last-sexp-1 eval-last-sexp-arg-internal)
+    (let ((old-value (make-symbol "t")) new-value value)
+      (let ((debug-on-error old-value))
+       (setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))
+       (setq new-value debug-on-error))
+      (unless (eq old-value new-value)
+       (setq debug-on-error new-value))
+      value)))
+      
 ;; Change defvar into defconst within FORM,
 ;; and likewise for other constructs as necessary.
 (defun eval-defun-1 (form)
@@ -401,7 +413,7 @@ With argument, print output into current buffer."
         (cons 'progn (mapcar 'eval-defun-1 (cdr form))))
        (t form)))
 
-(defun eval-defun (eval-defun-arg-internal)
+(defun eval-defun-2 (eval-defun-arg-internal)
   "Evaluate defun that point is in or before.
 The value is displayed in the minibuffer.
 If the current defun is actually a call to `defvar',
@@ -442,6 +454,29 @@ Return the result of evaluation."
                 ',form))))))
   ;; The result of evaluation has been put onto VALUES.  So return it.
   (car values))
+
+(defun eval-defun (eval-defun-arg-internal)
+  "Evaluate defun that point is in or before.
+The value is displayed in the minibuffer.
+If the current defun is actually a call to `defvar',
+then reset the variable using the initial value expression
+even if the variable already has some other value.
+\(Normally `defvar' does not change the variable's value
+if it already has a value.\)
+
+With argument, insert value in current buffer after the defun.
+Return the result of evaluation."
+  (interactive "P")
+  (if (null eval-expression-debug-on-error)
+      (eval-defun-2 eval-defun-arg-internal)
+    (let ((old-value (make-symbol "t")) new-value value)
+      (let ((debug-on-error old-value))
+       (setq value (eval-defun-2 eval-defun-arg-internal))
+       (setq new-value debug-on-error))
+      (unless (eq old-value new-value)
+       (setq debug-on-error new-value))
+      value)))
+
 \f
 (defun lisp-comment-indent ()
   (if (looking-at "\\s<\\s<\\s<")