diff options
| author | Stefan Monnier | 2003-03-18 09:41:39 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-03-18 09:41:39 +0000 |
| commit | f39864ec14892d9114ec9e66b802f1a37e0264e7 (patch) | |
| tree | 45ccfe7a5520973f33866c9c0a3c5f319908268f | |
| parent | cb0d45626e3d17bb7e4cd65eaab5ba2f053ce169 (diff) | |
| download | emacs-f39864ec14892d9114ec9e66b802f1a37e0264e7.tar.gz emacs-f39864ec14892d9114ec9e66b802f1a37e0264e7.zip | |
(command-line-1): Use command-execute for any command.
| -rw-r--r-- | lisp/startup.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1623 | "-funcall" | 1623 | "-funcall" |
| 1624 | "-e")) ; what the source used to say | 1624 | "-e")) ; what the source used to say |
| 1625 | (setq tem (intern (or argval (pop command-line-args-left)))) | 1625 | (setq tem (intern (or argval (pop command-line-args-left)))) |
| 1626 | (if (arrayp (symbol-function tem)) | 1626 | (if (commandp tem) |
| 1627 | (command-execute tem) | 1627 | (command-execute tem) |
| 1628 | (funcall tem))) | 1628 | (funcall tem))) |
| 1629 | 1629 | ||