# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808416312 0
# Node ID ce41e6df8986861ffa5dbdabdea1de5cb8a5ca78
# Parent  84beb7f8321f47991d6724b0ce1bb5efd32b370e
(command-line-1): Add option --eval to evalute an
expression on the command line and print the result.

diff -r 84beb7f8321f -r ce41e6df8986 lisp/startup.el
--- a/lisp/startup.el	Mon Aug 14 16:04:48 1995 +0000
+++ b/lisp/startup.el	Mon Aug 14 16:05:12 1995 +0000
@@ -101,6 +101,9 @@
 ;; --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.
+;;
 ;; -insert FILE              Insert the contents of FILE into buffer.
 ;; --insert FILE
 ;; -------------------------
@@ -674,7 +677,7 @@
 	       ;; and long versions of what's on command-switch-alist.
 	       (longopts
 	        (append '(("--funcall") ("--load") ("--insert") ("--kill")
-			  ("--directory"))
+			  ("--directory") ("--eval"))
 			(mapcar '(lambda (elt)
 				   (list (concat "-" (car elt))))
 				command-switch-alist)))
@@ -717,6 +720,12 @@
 		 (if (arrayp (symbol-function tem))
 		     (command-execute tem)
 		   (funcall tem)))
+		((string-equal argi "-eval")
+		 (if argval
+		     (setq tem argval)
+		   (setq tem (car command-line-args-left))
+		   (setq command-line-args-left (cdr command-line-args-left)))
+		 (print (eval (read tem))))
 		;; Set the default directory as specified in -L.
 		((or (string-equal argi "-L")
 		     (string-equal argi "-directory"))