# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 733702819 0
# Node ID 17d258d8e8e436ff50c96805cd9f46dfd2919584
# Parent  03a298d9a7b472748c6ae796a89b9ed7a118e3e2
(eval-defun): Rename argument to avoid collision.
(eval-last-sexp): Likewise.

diff -r 03a298d9a7b4 -r 17d258d8e8e4 lisp/emacs-lisp/lisp-mode.el
--- 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)