mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
(eshell-eval-using-options): Add debug declaration.
This commit is contained in:
parent
a549ce7054
commit
0d182a34a1
2 changed files with 7 additions and 1 deletions
|
|
@ -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.
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue