Function: cookie-doctor

cookie-doctor is an interactive and byte-compiled function defined in cookie1.el.gz.

Signature

(cookie-doctor PHRASE-FILE)

Documentation

Feed cookie phrases from PHRASE-FILE to the doctor.

Interactively, PHRASE-FILE defaults to cookie-file, unless that is nil or a prefix argument is used.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/cookie1.el.gz
(defun cookie-doctor (phrase-file)
  "Feed cookie phrases from PHRASE-FILE to the doctor.
Interactively, PHRASE-FILE defaults to `cookie-file', unless that
is nil or a prefix argument is used."
  (interactive (list (if (or current-prefix-arg (not cookie-file))
			 (read-file-name "Cookie file: " nil
					 cookie-file t cookie-file)
		       cookie-file)))
  (setq phrase-file (cookie-check-file phrase-file))
  (doctor)				; start the psychotherapy
  (message "")
  (switch-to-buffer "*doctor*")
  (sit-for 0)
  (while (not (input-pending-p))
    (insert (cookie phrase-file))
    (sit-for 0)
    (doctor-ret-or-read 1)
    (doctor-ret-or-read 1)))