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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4832f12bace..92178cd53d7 100644
--- 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 75c0d9b2b06..e786c6cc5c1 100644
--- 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))