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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b79852362b95bd730a08b931892a7932ecd076b3..005a2ddeb408efdcb568f03629b3219f826ce894 100644 (file)
--- 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 41e12e70b43ccef537d6a5d39bca9ae72e5f3174..121f568a9c42e538fe4cdeeb5ffdfe69eb0d9535 100644 (file)
--- 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)