From efb8f835e5134f32ac376e3ff1ef8caa0e4ccd5e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 1 Apr 1993 22:20:19 +0000 Subject: (eval-defun): Rename argument to avoid collision. (eval-last-sexp): Likewise. --- lisp/emacs-lisp/lisp-mode.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/lisp-mode.el') diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 67c2a96c069..c349d594e4b 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -221,11 +221,11 @@ if that value is non-nil." (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 @@ With argument, print output into current buffer." (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) -- cgit v1.2.3