diff options
| author | Miles Bader | 2007-08-29 05:03:40 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-08-29 05:03:40 +0000 |
| commit | 1bb9a689acfe821e0aa777ddf4e074556c7817a1 (patch) | |
| tree | f5478f932f35dc848934f28d5489204ff55e7e89 /lisp/eshell | |
| parent | 45f1ce5dc2e5e7830727b22925ad0ebc834726bd (diff) | |
| parent | cb5b9015b372175f1fc90cb7ba3f43298c621509 (diff) | |
| download | emacs-1bb9a689acfe821e0aa777ddf4e074556c7817a1.tar.gz emacs-1bb9a689acfe821e0aa777ddf4e074556c7817a1.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 857-865)
- Update from CVS
- Merge from emacs--rel--22
- Update from CVS: lisp/emacs-lisp/avl-tree.el: New file.
- Remove RCS keywords
* emacs--rel--22 (patch 97-100)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 246-247)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-252
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/esh-opt.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el index 94b0e34386f..66310895131 100644 --- a/lisp/eshell/esh-opt.el +++ b/lisp/eshell/esh-opt.el | |||
| @@ -58,6 +58,7 @@ BODY-FORMS. If instead an external command is run, the tag | |||
| 58 | 58 | ||
| 59 | Lastly, any remaining arguments will be available in a locally | 59 | Lastly, any remaining arguments will be available in a locally |
| 60 | interned variable `args' (created using a `let' form)." | 60 | interned variable `args' (created using a `let' form)." |
| 61 | (declare (debug (form form sexp body))) | ||
| 61 | `(let ((temp-args | 62 | `(let ((temp-args |
| 62 | ,(if (memq ':preserve-args (cadr options)) | 63 | ,(if (memq ':preserve-args (cadr options)) |
| 63 | macro-args | 64 | macro-args |
| @@ -101,7 +102,7 @@ This code doesn't really need to be macro expanded everywhere." | |||
| 101 | nil)) | 102 | nil)) |
| 102 | (error "%s" usage-msg)))) | 103 | (error "%s" usage-msg)))) |
| 103 | (throw 'eshell-external | 104 | (throw 'eshell-external |
| 104 | (eshell-external-command ext-command args)) | 105 | (eshell-external-command ext-command args)) |
| 105 | last-value)) | 106 | last-value)) |
| 106 | 107 | ||
| 107 | (defun eshell-show-usage (name options) | 108 | (defun eshell-show-usage (name options) |