aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorMiles Bader2007-08-29 05:03:40 +0000
committerMiles Bader2007-08-29 05:03:40 +0000
commit1bb9a689acfe821e0aa777ddf4e074556c7817a1 (patch)
treef5478f932f35dc848934f28d5489204ff55e7e89 /lisp/eshell
parent45f1ce5dc2e5e7830727b22925ad0ebc834726bd (diff)
parentcb5b9015b372175f1fc90cb7ba3f43298c621509 (diff)
downloademacs-1bb9a689acfe821e0aa777ddf4e074556c7817a1.tar.gz
emacs-1bb9a689acfe821e0aa777ddf4e074556c7817a1.zip
Merge from emacs--devo--0
Patches applied: * emacs--devo--0 (patch 857-865) - Update from CVS - Merge from emacs--rel--22 - Update from CVS: lisp/emacs-lisp/avl-tree.el: New file. - Remove RCS keywords * emacs--rel--22 (patch 97-100) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 246-247) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-252
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-opt.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el
index 94b0e34386f..66310895131 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
59Lastly, any remaining arguments will be available in a locally 59Lastly, any remaining arguments will be available in a locally
60interned variable `args' (created using a `let' form)." 60interned 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)