From a8bccd82cf55cae764952265c39c41411daf82c1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 23 Oct 2005 18:19:47 +0000 Subject: [PATCH] (doctor-doc): Don't say "psychiatrist". (doctor-symptoms): Likewise. --- lisp/play/doctor.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.39.2