play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4832f12bace60daed653ed20f3bed8cc4125271c..92178cd53d7aa39ea36a8450225048637f933f7e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 75c0d9b2b0626290a8c9e2127fc2b370407f2466..e786c6cc5c1f6e58e8b84ff1e013a1f7ffba6ac0 100644 (file)
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -138,7 +138,7 @@ Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."
                                (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))