From d5720b4c5afa88de93ad4cabd29de70800d40122 Mon Sep 17 00:00:00 2001 From: =?utf8?q?=C3=85=C2=81ukasz=20Stelmach?= Date: Thu, 26 Aug 2010 17:33:52 +0200 Subject: [PATCH] play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921). --- lisp/ChangeLog | 6 +++++- lisp/play/cookie1.el | 2 +- 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 (tiny change) + + * play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921). + 2010-08-26 Chong Yidong * simple.el (beginning-of-buffer, end-of-buffer): Doc fix @@ -36,7 +40,7 @@ 2010-08-21 Leo - 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)) -- 2.39.2