Mercurial > emacs
changeset 22463:fd555029931d
(eval-defun): Pass read function to
eval-region as arg, instead of binding load-read-function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 13 Jun 1998 04:33:31 +0000 |
| parents | 198054d3498c |
| children | fc8109f5d8f5 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Sat Jun 13 04:33:02 1998 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Sat Jun 13 04:33:31 1998 +0000 @@ -362,13 +362,12 @@ ;; 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<")