mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Pavel Janík 2001-11-29 08:35:51 +00:00
parent dd536f948d
commit 132c0cc0ce
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

12
lisp/play/cookie1.el
View File

@ -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