mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +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> 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) * play/studly.el (studlify-word, studlify-region)
(studlify-buffer): Fix doc-string. (studlify-buffer): Fix doc-string.
(studlify-buffer): Add autoload cookie. (studlify-buffer): Add autoload cookie.

12
lisp/play/cookie1.el
View File

@ -69,16 +69,18 @@
;;;###autoload ;;;###autoload
(defun cookie (phrase-file startmsg endmsg) (defun cookie (phrase-file startmsg endmsg)
"Return a random phrase from PHRASE-FILE. When the phrase file "Return a random phrase from PHRASE-FILE.
is read in, display STARTMSG at beginning of load, ENDMSG at end." 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))) (let ((cookie-vector (cookie-snarf phrase-file startmsg endmsg)))
(shuffle-vector cookie-vector) (shuffle-vector cookie-vector)
(aref cookie-vector 1))) (aref cookie-vector 1)))
;;;###autoload ;;;###autoload
(defun cookie-insert (phrase-file &optional count startmsg endmsg) (defun cookie-insert (phrase-file &optional count startmsg endmsg)
"Insert random phrases from PHRASE-FILE; COUNT of them. When the phrase file "Insert random phrases from PHRASE-FILE; COUNT of them.
is read in, display STARTMSG at beginning of load, ENDMSG at end." 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))) (let ((cookie-vector (cookie-snarf phrase-file startmsg endmsg)))
(shuffle-vector cookie-vector) (shuffle-vector cookie-vector)
(let ((start (point))) (let ((start (point)))
@ -151,7 +153,7 @@ Optional fifth arg REQUIRE-MATCH non-nil forces a matching cookie."
; ;
;;;###autoload ;;;###autoload
(defun shuffle-vector (vector) (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) (let ((i 0)
j j
temp temp