[Emacs-diffs] /srv/bzr/emacs/trunk r104300: * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649)

[Glenn Morris]

------------------------------------------------------------
revno: 104300
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-20 19:06:11 -0700
message:
  * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change.  
(Bug#8649)
modified:
  lisp/ChangeLog
  lisp/wid-edit.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-20 18:20:12 +0000
+++ b/lisp/ChangeLog    2011-05-21 02:06:11 +0000
@@ -1,3 +1,8 @@
+2011-05-21  Glenn Morris  <address@hidden>
+
+       * wid-edit.el (widget-checklist-match-inline):
+       Fix 2011-04-19 change.  (Bug#8649)
+
 2011-05-20  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/checkdoc.el (checkdoc-sentencespace-region-engine):

=== modified file 'lisp/wid-edit.el'
--- a/lisp/wid-edit.el  2011-04-19 13:44:55 +0000
+++ b/lisp/wid-edit.el  2011-05-21 02:06:11 +0000
@@ -2283,9 +2283,9 @@
     (while vals
       (let ((answer (widget-checklist-match-up args vals)))
        (cond (answer
-              (let ((vals (widget-match-inline answer vals)))
-                (setq found (append found (car vals))
-                      vals (cdr vals)
+              (let ((vals2 (widget-match-inline answer vals)))
+                (setq found (append found (car vals2))
+                      vals (cdr vals2)
                       args (delq answer args))))
              (greedy
               (setq rest (append rest (list (car vals)))