From: Lute Kamstra <lute@gnu.org>
Date: Fri, 10 Jun 2005 12:06:05 +0000 (+0000)
Subject: (doctor-mode-map): Remove defvar.
X-Git-Tag: emacs-pretest-22.0.90~9107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2aa8e74af09da63f7e702bc342d4350ba81ff0ab;p=emacs.git

(doctor-mode-map): Remove defvar.
(doctor-mode): Use define-derived-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46a830238a5..689c3c4e936 100644
--- 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 798abbc790a..7b81daa7782 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -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