From: Erik Naggum <erik@naggum.no>
Date: Mon, 25 Sep 1995 10:56:15 +0000 (+0000)
Subject: (command-line-1): --eval: Don't print the value.
X-Git-Tag: emacs-19.34~2788
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=955093c9e824f06638454e88c0de98f865f1c8e3;p=emacs.git

(command-line-1): --eval: Don't print the value.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index b482aa880de..523dc5c6b3c 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -101,8 +101,8 @@
 ;; --funcall FUNC            and should not be used.  (It's a typo
 ;; -e FUNC                   promoted to a feature.)
 ;;
-;; -eval FORM                Execute Emacs lisp form FORM, and print
-;; --eval FORM               the value it returns.
+;; -eval FORM                Execute Emacs lisp form FORM.
+;; --eval FORM
 ;;
 ;; -insert FILE              Insert the contents of FILE into buffer.
 ;; --insert FILE
@@ -725,7 +725,7 @@ Type \\[describe-distribution] for information on getting the latest version."))
 		     (setq tem argval)
 		   (setq tem (car command-line-args-left))
 		   (setq command-line-args-left (cdr command-line-args-left)))
-		 (print (eval (read tem))))
+		 (eval (read tem)))
 		;; Set the default directory as specified in -L.
 		((or (string-equal argi "-L")
 		     (string-equal argi "-directory"))