* wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05a7d63bb3d53d7046b89456353084d3533fded2..cde1e6d6a48cb1701d0a7f1be5f83ea7563fc38e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-21  Glenn Morris  <rgm@gnu.org>
+
+       * wid-edit.el (widget-checklist-match-inline):
+       Fix 2011-04-19 change.  (Bug#8649)
+
 2011-05-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/checkdoc.el (checkdoc-sentencespace-region-engine):

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 31cc8ad9ca9e5a91c656d7b41c887dc1b3187fd9..7b7813db94b3f5409ee7e9c15fff1b21a82cbb10 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2283,9 +2283,9 @@ If the item is checked, CHOSEN is a cons whose cdr is the value."
     (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)))