Mercurial > emacs
changeset 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 | 58afda80af8c |
| children | 5a6b4fafaa52 |
| files | lisp/ChangeLog lisp/play/cookie1.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Aug 26 11:14:55 2010 -0400 +++ b/lisp/ChangeLog Thu Aug 26 17:33:52 2010 +0200 @@ -1,3 +1,7 @@ +2010-08-26 Łukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl> (tiny change) + + * play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921). + 2010-08-26 Chong Yidong <cyd@stupidchicken.com> * simple.el (beginning-of-buffer, end-of-buffer): Doc fix @@ -36,7 +40,7 @@ 2010-08-21 Leo <sdl.web@gmail.com> - Fix buffer-list rename&refresh after after killing a buffer in ido. + Fix buffer-list rename&refresh after killing a buffer in ido. * lisp/ido.el: Revert Óscar's. (ido-kill-buffer-at-head): Exit the minibuffer with ido-exit=refresh. Remember the buffers at head, rather than their name.
--- a/lisp/play/cookie1.el Thu Aug 26 11:14:55 2010 -0400 +++ b/lisp/play/cookie1.el Thu Aug 26 17:33:52 2010 +0200 @@ -138,7 +138,7 @@ (vec (cookie-snarf phrase-file startmsg endmsg)) (i (length vec))) - (while (> (setq i (1- i)) 0) + (while (>= (setq i (1- i)) 0) (setq alist (cons (list (aref vec i)) alist))) (put sym 'completion-alist alist)))) nil require-match nil nil))