summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2011-03-22 19:52:52 -0700
committerGlenn Morris <rgm@gnu.org>2011-03-22 19:52:52 -0700
commit18d05bed653e4248b49250a0df930f8dd107aaa2 (patch)
tree565705329225b9d9872dd2545df0ea8a10db8985
parent927c53e762b4134a959bdad6df4d4ea6befe84b6 (diff)
downloademacs-18d05bed653e4248b49250a0df930f8dd107aaa2.tar.gz
esh-opt trivia.
* lisp/eshell/esh-opt.el (eshell-eval-using-options): Do not bind unused local variable `eshell-option-stub'.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/eshell/esh-opt.el7
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index adfbc6ce440..603888477fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
2011-03-23 Glenn Morris <rgm@gnu.org>
+ * eshell/esh-opt.el (eshell-eval-using-options):
+ Do not bind unused local variable `eshell-option-stub'.
+
* progmodes/gdb-mi.el (gdb): Fix typo in previous change.
2011-03-22 Juanma Barranquero <lekktu@gmail.com>
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)."
macro-args
(list 'eshell-stringify-list
(list 'eshell-flatten-list macro-args)))))
- (let ,(append (mapcar (lambda (opt)
- (or (and (listp opt) (nth 3 opt))
- 'eshell-option-stub))
- (cadr options))
+ (let ,(append (delq nil (mapcar (lambda (opt)
+ (and (listp opt) (nth 3 opt)))
+ (cadr options)))
'(usage-msg last-value ext-command args))
(eshell-do-opt ,name ,options (quote ,body-forms)))))