Mercurial > emacs
diff lisp/startup.el @ 50187:8c92ccc7b6dd
(command-line-1): Use command-execute for any command.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 18 Mar 2003 09:41:39 +0000 |
parents | 95d928fb74f3 |
children | 457e1ff9ea4a |
line wrap: on
line diff
--- a/lisp/startup.el Tue Mar 18 04:27:53 2003 +0000 +++ b/lisp/startup.el Tue Mar 18 09:41:39 2003 +0000 @@ -1623,7 +1623,7 @@ "-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)))