(eshell-eval-using-options): Add debug declaration.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b79852362b9..005a2ddeb40 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-26  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * eshell/esh-opt.el (eshell-eval-using-options):
+        Add debug declaration.
+
 2007-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc-hooks.el (vc-registered): Use mapc instead of mapcar.
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
 
 Lastly, any remaining arguments will be available in a locally
 interned variable `args' (created using a `let' form)."
+  (declare (debug (form form sexp body)))
   `(let ((temp-args
           ,(if (memq ':preserve-args (cadr options))
                macro-args
@@ -101,7 +102,7 @@ This code doesn't really need to be macro expanded everywhere."
                   nil))
            (error "%s" usage-msg))))
       (throw 'eshell-external
-             (eshell-external-command ext-command args))
+             (eshell-external-command ext-command args))
     last-value))
 
 (defun eshell-show-usage (name options)