Re: Strange behavior of `value'

[Richard Stallman]

Does this fix it?

*** lisp-mode.el        01 Apr 2007 17:40:39 -0400      1.201
--- lisp-mode.el        06 Jul 2007 22:24:55 -0400      
***************
*** 628,640 ****
    (interactive "P")
    (if (null eval-expression-debug-on-error)
        (eval-last-sexp-1 eval-last-sexp-arg-internal)
!     (let ((old-value eval-last-sexp-fake-value) 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)))
  
  (defun eval-defun-1 (form)
    "Treat some expressions specially.
--- 628,641 ----
    (interactive "P")
    (if (null eval-expression-debug-on-error)
        (eval-last-sexp-1 eval-last-sexp-arg-internal)
!     (let ((values
!          (let ((debug-on-error eval-last-sexp-fake-value))
!            (list (eval-last-sexp-1 eval-last-sexp-arg-internal)
!                  debug-on-error))))
!       (let ((new-value (cadr values)))
!       (unless (eq new-value eval-last-sexp-fake-value)
!         (setq debug-on-error new-value)))
!       (car values))))
  
  (defun eval-defun-1 (form)
    "Treat some expressions specially.