From 955093c9e824f06638454e88c0de98f865f1c8e3 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Mon, 25 Sep 1995 10:56:15 +0000 Subject: [PATCH] (command-line-1): --eval: Don't print the value. --- lisp/startup.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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")) -- 2.39.2