From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 23 Oct 2005 18:19:47 +0000 (+0000)
Subject: (doctor-doc): Don't say "psychiatrist".
X-Git-Tag: emacs-pretest-22.0.90~6380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8bccd82cf55cae764952265c39c41411daf82c1;p=emacs.git

(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.
---

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index ea502646e61..899bb34cabf 100644
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -954,7 +954,7 @@ Otherwise call the Doctor to parse preceding sentence."
 		      (doctor-type '(are you (doc$ afraidof) that \?)))
 		     ((zerop (random 2))
 		      (doctor-type '(don\'t tell me what to do \. i am the
-					    psychiatrist here!))
+					    doctor here!))
 		      (doctor-rthing))
 		     (t
 		      (doctor-type '((doc$ whysay) that i shouldn\'t
@@ -1552,8 +1552,8 @@ Hack on previous word, setting global variable OWNER to correct result."
 	(t (doctor-type '((doc$ whysay)(list subj verb obj))))))
 
 (defun doctor-symptoms ()
-  (doctor-type '((doc$ maybe) you should consult a doctor of medicine\,
-		 i am a psychiatrist \.)))
+  (doctor-type '((doc$ maybe) you should consult a medical doctor\;
+		 i am a psychotherapist. \.)))
 
 (defun doctor-hates ()
   (doctor-svo sent found 1 t)