aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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 @@
12011-03-23 Glenn Morris <rgm@gnu.org> 12011-03-23 Glenn Morris <rgm@gnu.org>
2 2
3 * eshell/esh-opt.el (eshell-eval-using-options):
4 Do not bind unused local variable `eshell-option-stub'.
5
3 * progmodes/gdb-mi.el (gdb): Fix typo in previous change. 6 * progmodes/gdb-mi.el (gdb): Fix typo in previous change.
4 7
52011-03-22 Juanma Barranquero <lekktu@gmail.com> 82011-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)."
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