;ELC   
;;; compiled by  @churchy.gnu.ai.mit.edu on Sat Sep 25 17:36:23 1993
;;; from file /home/gd/gnu/emacs/19.0/lisp/cookie1.el
;;; emacs version 19.20.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19"))

(random t)
(defconst cookie-delimiter "\n%%\n\\| " "\
Delimiter used to separate cookie file entries.")
(defvar cookie-cache (make-vector 511 0) "\
Cache of cookie files that have already been snarfed.")
(defalias 'cookie #[(phrase-file startmsg endmsg) "À	\n#Å!ˆÆH)‡" [cookie-snarf phrase-file startmsg endmsg cookie-vector shuffle-vector 1] 4 "\
Return a random phrase from PHRASE-FILE.  When the phrase file
is read in, display STARTMSG at beginning of load, ENDMSG at end."])
(defalias 'cookie-insert #[(phrase-file &optional count startmsg endmsg) "À	\n#Å!ˆ`ÇcˆÈGÉZ\n† É^\"ˆÇcˆË`Ì#*‡" [cookie-snarf phrase-file startmsg endmsg cookie-vector shuffle-vector start 10 cookie1 1 count fill-region-as-paragraph nil] 4 "\
Insert random phrases from PHRASE-FILE; COUNT of them.  When the phrase file
is read in, display STARTMSG at beginning of load, ENDMSG at end."])
(defalias 'cookie1 #[(arg cookie-vec) "ÁUƒ Â‡HcˆÄcˆÅS\"‡" [arg 0 t cookie-vec " " cookie1] 3 "\
Inserts a cookie phrase ARG times."])
(defalias 'cookie-snarf #[(phrase-file startmsg endmsg) "À	\n\"‰ƒ KÄÅ	!8š„ Æ	ÇP!ƒ Èƒ' J‚€ É	\n\"Ê!ˆŠÌÍ!È‰qˆÄÅ	!8MˆÐÑ	!!ˆÒ!ˆÔÈwˆm„n `Ò!ˆ`S{B)‚P Ö!ˆÊ!ˆØÙ\"L+)‡" [intern-soft phrase-file cookie-cache sym 5 file-attributes yes-or-no-p " has changed.  Read new contents? " nil intern message startmsg generate-new-buffer "*cookie*" result buf insert-file-contents expand-file-name re-search-forward cookie-delimiter " 	\n" beg kill-buffer endmsg apply vector] 5 "\
Reads in the PHRASE-FILE, returns it as a vector of strings.
Emit STARTMSG and ENDMSG before and after.  Caches the result; second
and subsequent calls on the same file won't go to disk."])
(defalias 'read-cookie #[(prompt phrase-file startmsg endmsg &optional require-match) "À	\n\"„ Ã	#ˆÆÈ	\n\"‰	ÊN†K ËÃ	#‰GS‰ÏVƒC HCB‚* Ð	Ê#+)ËË‰&‡" [intern-soft phrase-file cookie-cache cookie-snarf startmsg endmsg completing-read prompt intern sym completion-alist nil alist vec i 0 put require-match] 8 "\
Prompt with PROMPT and read with completion among cookies in PHRASE-FILE.
STARTMSG and ENDMSG are passed along to `cookie-snarf'.
Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."])
(defalias 'shuffle-vector #[(vector) "ÀÁ‰\nG‰Wƒ5 ÇZ!\\\nH\n\nHIˆ\nIˆT‰‚ ,\n‡" [0 nil vector len temp j i random] 5 "\
Randomly permute the elements of VECTOR (all permutations equally likely)"])
(provide (quote cookie1))