summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorŁukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl>2010-08-26 17:33:52 +0200
committerJuanma Barranquero <lekktu@gmail.com>2010-08-26 17:33:52 +0200
commitd5720b4c5afa88de93ad4cabd29de70800d40122 (patch)
treee218a6e8aca8f89beda5824d9c5cd7ef41a26d08 /lisp
parent4f558297553dfb294bac9d642e28a7b9c4207525 (diff)
downloademacs-d5720b4c5afa88de93ad4cabd29de70800d40122.tar.gz
play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/play/cookie1.el2
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))