Function: cookie-insert

cookie-insert is an autoloaded and byte-compiled function defined in cookie1.el.gz.

Signature

(cookie-insert PHRASE-FILE &optional COUNT STARTMSG ENDMSG)

Documentation

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.

Source Code

;; Defined in /usr/src/emacs/lisp/play/cookie1.el.gz
;;;###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 the beginning
of load, ENDMSG at the end."
  (setq phrase-file (cookie-check-file phrase-file))
  (let ((cookie-vector (cookie-snarf phrase-file startmsg endmsg)))
    (cookie-shuffle-vector cookie-vector)
    (let ((start (point)))
      (insert ?\n)
      (cookie1 (min (- (length cookie-vector) 1) (or count 1)) cookie-vector)
      (insert ?\n)
      (fill-region-as-paragraph start (point) nil))))