From: Pavel Janík <Pavel@Janik.cz>
Date: Thu, 29 Nov 2001 08:35:51 +0000 (+0000)
Subject: (cookie, cookie-insert, shuffle-vector): Doc fixes.
X-Git-Tag: ttn-vms-21-2-B4~18041
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=132c0cc0ce08f7fb2542f4e30a7d0eabcb5e66d7;p=emacs.git

(cookie, cookie-insert, shuffle-vector): Doc fixes.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 497fe9b663a..3887fb1968b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-29  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* play/cookie1.el (cookie, cookie-insert, shuffle-vector): Doc
+	fixes.
+
 	* play/studly.el (studlify-word, studlify-region)
 	(studlify-buffer): Fix doc-string.
 	(studlify-buffer): Add autoload cookie.
diff --git a/lisp/play/cookie1.el b/lisp/play/cookie1.el
index 2c3ff16fe13..cd3c715bc99 100644
--- a/lisp/play/cookie1.el
+++ b/lisp/play/cookie1.el
@@ -69,16 +69,18 @@
 
 ;;;###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."
+  "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 beginning of load, ENDMSG at end."
+  "Insert random phrases from PHRASE-FILE; COUNT of them.
+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)
     (let ((start (point)))
@@ -151,7 +153,7 @@ Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."
 ;
 ;;;###autoload
 (defun shuffle-vector (vector)
-  "Randomly permute the elements of VECTOR (all permutations equally likely)"
+  "Randomly permute the elements of VECTOR (all permutations equally likely)."
   (let ((i 0)
 	j
 	temp