diff options
| author | Miles Bader <miles@gnu.org> | 2006-06-21 05:09:32 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-06-21 05:09:32 +0000 |
| commit | a9adeed791c47d4d9268b829e0aa9f40d1905a33 (patch) | |
| tree | b7ce35cd7f162c5e88430f00a55f549b6ec7ce86 /lisp/play/cookie1.el | |
| parent | 0bcfc69f3a419ca3e516a35b39f0163f9fbdf116 (diff) | |
| download | emacs-a9adeed791c47d4d9268b829e0aa9f40d1905a33.tar.gz | |
lisp/play/cookie1.el (cookie): Work properly when there's only one entry
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-323
Diffstat (limited to 'lisp/play/cookie1.el')
| -rw-r--r-- | lisp/play/cookie1.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el index bc4ee84da2f..7a2e6c602ea 100644 --- a/lisp/play/cookie1.el +++ b/lisp/play/cookie1.el @@ -1,6 +1,6 @@ ;;; cookie1.el --- retrieve random phrases from fortune cookie files -;; Copyright (C) 1993, 2002, 2003, 2004, 2005, +;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 2006, ;; 2006 Free Software Foundation, Inc. ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> @@ -75,7 +75,7 @@ When the phrase file is read in, display STARTMSG at the beginning of load, ENDMSG at the end." (let ((cookie-vector (cookie-snarf phrase-file startmsg endmsg))) (shuffle-vector cookie-vector) - (aref cookie-vector 1))) + (aref cookie-vector 0))) ;;;###autoload (defun cookie-insert (phrase-file &optional count startmsg endmsg) |