Mercurial > emacs
changeset 2450:17d258d8e8e4
(eval-defun): Rename argument to avoid collision.
(eval-last-sexp): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Apr 1993 22:20:19 +0000 |
| parents | 03a298d9a7b4 |
| children | a149f1464f40 |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Thu Apr 01 05:30:04 1993 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Thu Apr 01 22:20:19 1993 +0000 @@ -221,11 +221,11 @@ (eval-last-sexp t) (terpri))) -(defun eval-last-sexp (arg) +(defun eval-last-sexp (eval-last-sexp-arg-internal) "Evaluate sexp before point; print value in minibuffer. With argument, print output into current buffer." (interactive "P") - (let ((standard-output (if arg (current-buffer) t)) + (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)) (opoint (point))) (prin1 (let ((stab (syntax-table))) (eval (unwind-protect @@ -237,12 +237,12 @@ (read (current-buffer)))) (set-syntax-table stab))))))) -(defun eval-defun (arg) +(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." (interactive "P") - (let ((standard-output (if arg (current-buffer) t))) + (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))) (prin1 (eval (save-excursion (end-of-defun) (beginning-of-defun)