1 |
;;; esh-opt.el --- command options processing |
;;; esh-opt.el --- command options processing |
2 |
|
|
3 |
;; Copyright (C) 1999, 2000 Free Software Foundation |
;; Copyright (C) 1999, 2000, 2003 Free Software Foundation |
4 |
|
|
5 |
;; Author: John Wiegley <johnw@gnu.org> |
;; Author: John Wiegley <johnw@gnu.org> |
6 |
|
|
98 |
last-value (eval (append (list 'progn) |
last-value (eval (append (list 'progn) |
99 |
body-forms))) |
body-forms))) |
100 |
nil)) |
nil)) |
101 |
(error usage-msg)))) |
(error "%s" usage-msg)))) |
102 |
(throw 'eshell-external |
(throw 'eshell-external |
103 |
(eshell-external-command ext-command args)) |
(eshell-external-command ext-command args)) |
104 |
last-value)) |
last-value)) |