diff options
| author | Thien-Thi Nguyen | 2007-08-26 01:52:30 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen | 2007-08-26 01:52:30 +0000 |
| commit | 0d182a34a175b04f05f86a1494cd4cd447777786 (patch) | |
| tree | 96a79a8970b09e3d83bbf7526418fb20387a8236 /lisp/eshell | |
| parent | a549ce70542360af098cc94d191cc01879bf3a8e (diff) | |
| download | emacs-0d182a34a175b04f05f86a1494cd4cd447777786.tar.gz emacs-0d182a34a175b04f05f86a1494cd4cd447777786.zip | |
(eshell-eval-using-options): Add debug declaration.
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 41e12e70b43..121f568a9c4 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) |