(doctor-mode-map): Remove defvar.

(doctor-mode): Use define-derived-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46a830238a561204461e5ef7baebc9cd5431f5e3..689c3c4e936afdcbc73788fd93a59b5aa0c81bfb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 798abbc790adacd407d78aff5f56b9c81e5bd132..7b81daa778298dfdcc61605a685ca0b00332153b 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -59,30 +59,21 @@
     (set what ww)
     first))
 \f
-(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