Function: doctor-mode

doctor-mode is a byte-compiled function defined in doctor.el.gz.

Signature

(doctor-mode)

Documentation

Major mode for running the Doctor (Eliza) program.

Like Text mode with Auto Fill mode except that RET when point is after a newline, or LFD at any time, reads the sentence before point, and prints the Doctor's answer.

In addition to any hooks its parent mode text-mode might have run, this mode runs the hook doctor-mode-hook, as the final or penultimate step during initialization.

C-j doctor-read-print
RET doctor-ret-or-read

Source Code

;; Defined in /usr/src/emacs/lisp/play/doctor.el.gz
(define-derived-mode doctor-mode text-mode "Doctor"
  "Major mode for running the Doctor (Eliza) program.
Like Text mode with Auto Fill mode
except that RET when point is after a newline, or LFD at any time,
reads the sentence before point, and prints the Doctor's answer."
  :interactive nil
  (make-doctor-variables)
  (turn-on-auto-fill)
  (doctor-type '(i am the psychotherapist \.
		 (doc$ doctor--please) (doc$ doctor--describe) your (doc$ doctor--problems) \.
		 each time you are finished talking\, type \R\E\T twice \.))
  (insert "\n"))