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

(eval-defun): Pass proper beg to eval-region.

Browse source
This commit is contained in:
Richard M. Stallman 1998-05-25 22:40:45 +00:00
parent f9ba10b011
commit 2d75b39535
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -342,11 +342,12 @@ Print value in minibuffer.
With argument, insert value in current buffer after the defun."
(interactive "P")
(let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
end form)
beg end form)
;; Read the form from the buffer, and record where it ends.
(save-excursion
(end-of-defun)
(beginning-of-defun)
(setq beg (point))
(setq form (read (current-buffer)))
(setq end (point)))
;; Alter the form if necessary.
@ -367,7 +368,7 @@ With argument, insert value in current buffer after the defun."
;; will make eval-region return.
(goto-char end)
form)))
(eval-region (point) end standard-output)))))
(eval-region beg end standard-output)))))
(defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<")