From: Glenn Morris Date: Sat, 21 May 2011 02:06:11 +0000 (-0700) Subject: * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649) X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~228 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f1a85585827ca8cb380c3788d39235e205a4ca6;p=emacs.git * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05a7d63bb3d..cde1e6d6a48 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-05-21 Glenn Morris + + * wid-edit.el (widget-checklist-match-inline): + Fix 2011-04-19 change. (Bug#8649) + 2011-05-20 Stefan Monnier * emacs-lisp/checkdoc.el (checkdoc-sentencespace-region-engine): diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 31cc8ad9ca9..7b7813db94b 100644 --- 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)))