Mercurial > emacs
comparison lisp/play/cookie1.el @ 110120:3d32b7120396
play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 26 Aug 2010 17:33:52 +0200 |
| parents | 1d1d5d9bd884 |
| children | 376148b31b5e |
comparison
equal
deleted
inserted
replaced
| 110119:58afda80af8c | 110120:3d32b7120396 |
|---|---|
| 136 (or (get sym 'completion-alist) | 136 (or (get sym 'completion-alist) |
| 137 (let* ((alist nil) | 137 (let* ((alist nil) |
| 138 (vec (cookie-snarf phrase-file | 138 (vec (cookie-snarf phrase-file |
| 139 startmsg endmsg)) | 139 startmsg endmsg)) |
| 140 (i (length vec))) | 140 (i (length vec))) |
| 141 (while (> (setq i (1- i)) 0) | 141 (while (>= (setq i (1- i)) 0) |
| 142 (setq alist (cons (list (aref vec i)) alist))) | 142 (setq alist (cons (list (aref vec i)) alist))) |
| 143 (put sym 'completion-alist alist)))) | 143 (put sym 'completion-alist alist)))) |
| 144 nil require-match nil nil)) | 144 nil require-match nil nil)) |
| 145 | 145 |
| 146 ; Thanks to Ian G Batten <BattenIG@CS.BHAM.AC.UK> | 146 ; Thanks to Ian G Batten <BattenIG@CS.BHAM.AC.UK> |