[Emacs-diffs] /srv/bzr/emacs/trunk r103723: esh-opt trivia.

[Glenn Morris]

------------------------------------------------------------
revno: 103723
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-22 19:52:52 -0700
message:
  esh-opt trivia.
  
  * lisp/eshell/esh-opt.el (eshell-eval-using-options):
  Do not bind unused local variable `eshell-option-stub'.
modified:
  lisp/ChangeLog
  lisp/eshell/esh-opt.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-23 02:50:28 +0000
+++ b/lisp/ChangeLog    2011-03-23 02:52:52 +0000
@@ -1,5 +1,8 @@
 2011-03-23  Glenn Morris  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/eshell/esh-opt.el'
--- a/lisp/eshell/esh-opt.el    2011-03-21 06:42:23 +0000
+++ b/lisp/eshell/esh-opt.el    2011-03-23 02:52:52 +0000
@@ -102,10 +102,9 @@
               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)))))