From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 13 Jun 1998 04:33:31 +0000 (+0000)
Subject: (eval-defun): Pass read function to
X-Git-Tag: emacs-20.3~616
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63987c84b15fac7137724a4f765b65f1de1304a2;p=emacs.git

(eval-defun): Pass read function to
eval-region as arg, instead of binding load-read-function.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 0058b4622f8..a0b1999036c 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -362,13 +362,12 @@ With argument, insert value in current buffer after the defun."
     ;; Now arrange for eval-region to "read" the (possibly) altered form.
     ;; eval-region handles recording which file defines a function or variable.
     (save-excursion
-      (let ((load-read-function
-	     #'(lambda (ignore)
-		 ;; Skipping to the end of the specified region
-		 ;; will make eval-region return.
-		 (goto-char end)
-		 form)))
-	(eval-region beg end standard-output)))))
+      (eval-region beg end standard-output
+		   #'(lambda (ignore)
+		       ;; Skipping to the end of the specified region
+		       ;; will make eval-region return.
+		       (goto-char end)
+		       form)))))
 
 (defun lisp-comment-indent ()
   (if (looking-at "\\s<\\s<\\s<")