# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 790310029 0
# Node ID c6bc0c89d0cea2bc4d8f90c3ee0fe368fda9b19f
# Parent  855923ce1e5985ee16eadef89b4d3ea6220c5574
(command-line-1): Handle -f with kbd macro.

diff -r 855923ce1e59 -r c6bc0c89d0ce lisp/startup.el
--- a/lisp/startup.el	Tue Jan 17 02:33:24 1995 +0000
+++ b/lisp/startup.el	Tue Jan 17 02:33:49 1995 +0000
@@ -609,7 +609,9 @@
 		     (setq tem (intern argval))
 		   (setq tem (intern (car command-line-args-left)))
 		   (setq command-line-args-left (cdr command-line-args-left)))
-		 (funcall tem))
+		 (if (arrayp (symbol-function tem))
+		     (command-execute tem)
+		   (funcall tem)))
 		((or (string-equal argi "-l")
 		     (string-equal argi "-load"))
 		 (if argval