[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Strange behavior of `value'
From: |
Richard Stallman |
Subject: |
Re: Strange behavior of `value' |
Date: |
Sat, 07 Jul 2007 09:06:48 -0400 |
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.