Mercurial > emacs

comparison lisp/eshell/esh-opt.el @ 82850:4d60bd4e5610

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eshell-eval-using-options): Add debug declaration.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sun, 26 Aug 2007 01:51:37 +0000
parents a1e8300d3c55
children 3e9ef52e86be b83d0dadb2a7
comparison
equal deleted inserted replaced
82849:ea5864b698fd 82850:4d60bd4e5610
56 BODY-FORMS. If instead an external command is run, the tag 56 BODY-FORMS. If instead an external command is run, the tag
57 `eshell-external' will be thrown with the new process for its value. 57 `eshell-external' will be thrown with the new process for its value.
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
64 (list 'eshell-stringify-list 65 (list 'eshell-stringify-list
65 (list 'eshell-flatten-list macro-args))))) 66 (list 'eshell-flatten-list macro-args)))))
99 last-value (eval (append (list 'progn) 100 last-value (eval (append (list 'progn)
100 body-forms))) 101 body-forms)))
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)
108 "Display the usage message for NAME, using OPTIONS." 109 "Display the usage message for NAME, using OPTIONS."
109 (let ((usage (format "usage: %s %s\n\n" name 110 (let ((usage (format "usage: %s %s\n\n" name