mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(doctor-mode-map): Remove defvar.

Browse Source 
(doctor-mode): Use define-derived-mode.
This commit is contained in:
Lute Kamstra 2005-06-10 12:06:05 +00:00
parent 09e9987080
commit 2aa8e74af0
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -30,6 +30,11 @@
(dungeon-mode-map): Rename to dun-mode-map. Keep old name as an
obsolete alias.
* play/doctor.el (doctor-mode-map): Remove defvar.
(doctor-mode): Use define-derived-mode.
* play/blackbox.el (blackbox-mode): Use run-mode-hooks.
2005-06-10 Miles Bader <miles@gnu.org>
* textmodes/flyspell.el (flyspell-incorrect, flyspell-duplicate):

17
lisp/play/doctor.el
View File

@ -59,30 +59,21 @@
(set what ww)
first))
(defvar doctor-mode-map nil)
(if doctor-mode-map
nil
(setq doctor-mode-map (make-sparse-keymap))
(define-key doctor-mode-map "\n" 'doctor-read-print)
(define-key doctor-mode-map "\r" 'doctor-ret-or-read))
(defun doctor-mode ()
(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)
(text-mode)
(make-doctor-variables)
(use-local-map doctor-mode-map)
(setq major-mode 'doctor-mode)
(setq mode-name "Doctor")
(turn-on-auto-fill)
(doctor-type '(i am the psychotherapist \.
(doc$ please) (doc$ describe) your (doc$ problems) \.
each time you are finished talking, type \R\E\T twice \.))
(insert "\n"))
(define-key doctor-mode-map "\n" 'doctor-read-print)
(define-key doctor-mode-map "\r" 'doctor-ret-or-read)
(defun make-doctor-variables ()
(make-local-variable 'typos)
(setq typos