# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1282836832 -7200
# Node ID 3d32b7120396391d44e39ad3eb02b5e5b1ffa5f8
# Parent  58afda80af8cec6d5ba06b2acfc5e8dc03cb6b08
play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).

diff -r 58afda80af8c -r 3d32b7120396 lisp/ChangeLog
--- 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.
diff -r 58afda80af8c -r 3d32b7120396 lisp/play/cookie1.el
--- 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))