[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104300: * wid-edit.el (widget-checkl
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104300: * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649) |
Date: |
Fri, 20 May 2011 19:06:11 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104300: * wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649),
Glenn Morris <=