From: Łukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl>
Date: Thu, 26 Aug 2010 15:33:52 +0000 (+0200)
Subject: play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
X-Git-Tag: emacs-pretest-23.2.90~142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5720b4c5afa88de93ad4cabd29de70800d40122;p=emacs.git

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

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))