(command-line-1): Handle -f with kbd macro.

diff --git a/lisp/startup.el b/lisp/startup.el
index 54c0b0aa5db7458feb77beacf29dfd2d362a7bfe..a884e61a1830e56ba0ee0c7d67296f3f3024eae3 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -609,7 +609,9 @@ Type \\[describe-distribution] for information on getting the latest version."))
                     (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