[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100004: play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).

[Juanma Barranquero]

------------------------------------------------------------
revno: 100004
author: Łukasz Stelmach <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: emacs-23
timestamp: Thu 2010-08-26 17:33:52 +0200
message:
  play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
modified:
  lisp/ChangeLog
  lisp/play/cookie1.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-26 15:09:45 +0000
+++ b/lisp/ChangeLog    2010-08-26 15:33:52 +0000
@@ -1,3 +1,7 @@
+2010-08-26  Łukasz Stelmach  <address@hidden>  (tiny change)
+
+       * play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
+
 2010-08-26  Chong Yidong  <address@hidden>
 
        * simple.el (beginning-of-buffer, end-of-buffer): Doc fix
@@ -36,7 +40,7 @@
 
 2010-08-21  Leo  <address@hidden>
 
-       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.

=== modified file 'lisp/play/cookie1.el'
--- a/lisp/play/cookie1.el      2010-01-13 08:35:10 +0000
+++ b/lisp/play/cookie1.el      2010-08-26 15:33:52 +0000
@@ -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))