# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 812026575 0
# Node ID c5e3d029241da491f4621c2efda6c63d321ca412
# Parent  2e514396cbc8d7b1f3641a2200be7064f82fc033
(command-line-1): --eval: Don't print the value.

diff -r 2e514396cbc8 -r c5e3d029241d lisp/startup.el
--- a/lisp/startup.el	Sun Sep 24 23:33:06 1995 +0000
+++ b/lisp/startup.el	Mon Sep 25 10:56:15 1995 +0000
@@ -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 @@
 		     (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"))