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 | 63987c84b15fac7137724a4f765b65f1de1304a2 (patch) | |
| tree | ae0e4ac4f93e0b32a1646ebc39b9b68cae80578e /lisp/emacs-lisp | |
| parent | e13d531d4f1e4ad4b348e2c950b74cef3ee67280 (diff) | |
| download | emacs-63987c84b15fac7137724a4f765b65f1de1304a2.tar.gz emacs-63987c84b15fac7137724a4f765b65f1de1304a2.tar.bz2 emacs-63987c84b15fac7137724a4f765b65f1de1304a2.zip | |
(eval-defun): Pass read function to
eval-region as arg, instead of binding load-read-function.
Diffstat (limited to 'lisp/emacs-lisp')
| -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<") |