diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:33:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-06-13 04:33:31 +0000 |
commit | b78585e49a3f09843d313a8ec4a4339624838ebd (patch) | |
tree | 11e2a981515e762e4ae8a90f2a9e0d916598c9e8 | |
parent | 637471cf783e2cd083f1f76ce4b086eb4b8ba10f (diff) | |
download | emacs-b78585e49a3f09843d313a8ec4a4339624838ebd.tar.gz |
(eval-defun): Pass read function to
eval-region as arg, instead of binding load-read-function.
-rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 13 |
1 files 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<") |