Commit 63987c84 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(eval-defun): Pass read function to

eval-region as arg, instead of binding load-read-function.
parent e13d531d
......@@ -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<")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment