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

diff --git a/lisp/startup.el b/lisp/startup.el
index b482aa880def84bf23dddef4f6e8884f9f5e4d96..523dc5c6b3c6d28410a0a26adf8bf08252daf4a5 100644 (file)
--- 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"))