diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-05-20 19:06:11 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-05-20 19:06:11 -0700 |
| commit | 3f1a85585827ca8cb380c3788d39235e205a4ca6 (patch) | |
| tree | abb608375228155583f38d260156ceae41a8488d /lisp/wid-edit.el | |
| parent | 33cf345f0c6ba2ff6422e773bc94e17125e60340 (diff) | |
| download | emacs-3f1a85585827ca8cb380c3788d39235e205a4ca6.tar.gz | |
* wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649)
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 6 |
1 files changed, 3 insertions, 3 deletions
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))) |