diff options
author | Erik Naggum <erik@naggum.no> | 1995-09-25 10:56:15 +0000 |
---|---|---|
committer | Erik Naggum <erik@naggum.no> | 1995-09-25 10:56:15 +0000 |
commit | 1d3646f6e6256e3ed9e3f1ed03e9c5e2399ff974 (patch) | |
tree | 380e4a5330f7b96bd1d8991e59907f1c6b459526 /lisp/startup.el | |
parent | 629db5242287def755321b72bf26e5a4aa196c89 (diff) | |
download | emacs-1d3646f6e6256e3ed9e3f1ed03e9c5e2399ff974.tar.gz |
(command-line-1): --eval: Don't print the value.
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 6 |
1 files 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")) |