From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 Mar 2003 09:41:39 +0000 (+0000)
Subject: (command-line-1): Use command-execute for any command.
X-Git-Tag: ttn-vms-21-2-B4~10854
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f39864ec14892d9114ec9e66b802f1a37e0264e7;p=emacs.git

(command-line-1): Use command-execute for any command.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index b12c2042066..bddbeeda45b 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1623,7 +1623,7 @@ normal otherwise."
                                 "-funcall"
                                 "-e"))  ; what the source used to say
                  (setq tem (intern (or argval (pop command-line-args-left))))
-                 (if (arrayp (symbol-function tem))
+                 (if (commandp tem)
                      (command-execute tem)
                    (funcall tem)))