From 63987c84b15fac7137724a4f765b65f1de1304a2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 13 Jun 1998 04:33:31 +0000 Subject: [PATCH] (eval-defun): Pass read function to eval-region as arg, instead of binding load-read-function. --- lisp/emacs-lisp/lisp-mode.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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<") -- 2.39.5