aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorGlenn Morris2011-03-22 19:52:52 -0700
committerGlenn Morris2011-03-22 19:52:52 -0700
commit18d05bed653e4248b49250a0df930f8dd107aaa2 (patch)
tree565705329225b9d9872dd2545df0ea8a10db8985 /lisp/eshell
parent927c53e762b4134a959bdad6df4d4ea6befe84b6 (diff)
downloademacs-18d05bed653e4248b49250a0df930f8dd107aaa2.tar.gz
emacs-18d05bed653e4248b49250a0df930f8dd107aaa2.zip
esh-opt trivia.
* lisp/eshell/esh-opt.el (eshell-eval-using-options): Do not bind unused local variable `eshell-option-stub'.
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-opt.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/eshell/esh-opt.el b/lisp/eshell/esh-opt.el
index a9e8f11c39a..91d3cac198a 100644
--- a/lisp/eshell/esh-opt.el
+++ b/lisp/eshell/esh-opt.el
@@ -102,10 +102,9 @@ interned variable `args' (created using a `let' form)."
102 macro-args 102 macro-args
103 (list 'eshell-stringify-list 103 (list 'eshell-stringify-list
104 (list 'eshell-flatten-list macro-args))))) 104 (list 'eshell-flatten-list macro-args)))))
105 (let ,(append (mapcar (lambda (opt) 105 (let ,(append (delq nil (mapcar (lambda (opt)
106 (or (and (listp opt) (nth 3 opt)) 106 (and (listp opt) (nth 3 opt)))
107 'eshell-option-stub)) 107 (cadr options)))
108 (cadr options))
109 '(usage-msg last-value ext-command args)) 108 '(usage-msg last-value ext-command args))
110 (eshell-do-opt ,name ,options (quote ,body-forms))))) 109 (eshell-do-opt ,name ,options (quote ,body-forms)))))
111 110