(cookie, cookie-insert, cookie-snarf, shuffle-vector): Autoload these.

diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index aa767ed8f4e0b0238dbe487c30939e43662b3e68..ee5521aa3b43628eebe1303e6008d63d1cdf08bf 100644 (file)
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -63,6 +63,7 @@
 (defvar cookie-cache (make-vector 511 0)
   "Cache of cookie files that have already been snarfed.")
 
+;;;###autoload
 (defun cookie (phrase-file startmsg endmsg)
   "Return a random phrase from PHRASE-FILE.  When the phrase file
 is read in, display STARTMSG at beginning of load, ENDMSG at end."
@@ -70,6 +71,7 @@ is read in, display STARTMSG at beginning of load, ENDMSG at end."
     (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 beginning of load, ENDMSG at end."
@@ -88,6 +90,7 @@ is read in, display STARTMSG at beginning of load, ENDMSG at end."
           (insert " ")
           (cookie1 (1- arg) cookie-vec))))
 
+;;;###autoload
 (defun cookie-snarf (phrase-file startmsg endmsg)
   "Reads in the PHRASE-FILE, returns it as a vector of strings.  Emit
 STARTMSG and ENDMSG before and after.  Caches the result; second and
@@ -126,6 +129,7 @@ subsequent calls on the same file won't go to disk."
 ; [of the University of Birmingham Computer Science Department]
 ; for the iterative version of this shuffle.
 ;
+;;;###autoload
 (defun shuffle-vector (vector)
   "Randomly permute the elements of VECTOR (all permutations equally likely)"
   (let ((i 0)