comparison lisp/play/cookie1.el @ 71413:e04e474d258e

lisp/play/cookie1.el (cookie): Work properly when there's only one entry Revision: [e-mail]/emacs--devo--0--patch-323

71412:57311883b6e5

;;; cookie1.el --- retrieve random phrases from fortune cookie files

;; Copyright (C) 1993, 2002, 2003, 2004, 2005,
;;   2006 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Maintainer: FSF
;; Keywords: games, extensions

  "Return a random phrase from PHRASE-FILE.
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)))

;;;###autoload
(defun cookie-insert (phrase-file &optional count startmsg endmsg)
  "Insert random phrases from PHRASE-FILE; COUNT of them.
When the phrase file is read in, display STARTMSG at the beginning

71413:e04e474d258e

;;; cookie1.el --- retrieve random phrases from fortune cookie files

;; Copyright (C) 1993, 2002, 2003, 2004, 2005, 2006,
;;   2006 Free Software Foundation, Inc.

;; Author: Eric S. Raymond <[e-mail]>
;; Maintainer: FSF
;; Keywords: games, extensions

  "Return a random phrase from PHRASE-FILE.
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 0)))

;;;###autoload
(defun cookie-insert (phrase-file &optional count startmsg endmsg)
  "Insert random phrases from PHRASE-FILE; COUNT of them.
When the phrase file is read in, display STARTMSG at the beginning