diff options
| author | Åukasz Stelmach <lukasz.stelmach@iem.pw.edu.pl> | 2010-08-26 17:33:52 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-08-26 17:33:52 +0200 |
| commit | d5720b4c5afa88de93ad4cabd29de70800d40122 (patch) | |
| tree | e218a6e8aca8f89beda5824d9c5cd7ef41a26d08 /lisp/play/cookie1.el | |
| parent | 4f558297553dfb294bac9d642e28a7b9c4207525 (diff) | |
| download | emacs-d5720b4c5afa88de93ad4cabd29de70800d40122.tar.gz | |
play/cookie1.el (read-cookie): Fix off-by-one error (bug#6921).
Diffstat (limited to 'lisp/play/cookie1.el')
| -rw-r--r-- | lisp/play/cookie1.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |