procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eval-defun): Pass read function to

Browse source 
eval-region as arg, instead of binding load-read-function.
This commit is contained in:
Richard M. Stallman 1998-06-13 04:33:31 +00:00
parent e13d531d4f
commit 63987c84b1
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/lisp-mode.el
View file

@ -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<")