(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 0058b4622f862764b29e13a7e9922fb2ce1ed09a..a0b1999036c07a7ce086992092aa4a54959d30b0 100644 (file)
--- 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)))))
 \f
 (defun lisp-comment-indent ()
   (if (looking-at "\\s<\\s<\\s<")