Mercurial > emacs
diff lisp/emacs-lisp/lisp-mode.el @ 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 | afacb0a7e251 |
children | 06d8312c50a4 |
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<")