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

(eval-defun): Return the evaluation result.

Browse source
This commit is contained in:
Karl Heuer 1998-10-06 23:33:04 +00:00
parent 5577e2b28a
commit 2298f9f7d8
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -339,7 +339,8 @@ With argument, print output into current buffer."
(defun eval-defun (eval-defun-arg-internal)
"Evaluate defun that point is in or before.
Print value in minibuffer.
With argument, insert value in current buffer after the defun."
With argument, insert value in current buffer after the defun.
Return the result of evaluation."
(interactive "P")
(let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
beg end form)
@ -367,7 +368,10 @@ With argument, insert value in current buffer after the defun."
;; Skipping to the end of the specified region
;; will make eval-region return.
(goto-char end)
form)))))
form))
;; The result of evaluation has been put onto VALUES.
;; So return it.
(car values))))
(defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<")