(eval-defun): Pass read function to

eval-region as arg, instead of binding load-read-function.

1 files changed, 6 insertions, 7 deletions

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 0058b4622f..a0b1999036 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<")