diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-10-23 18:19:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-10-23 18:19:47 +0000 |
| commit | a8bccd82cf55cae764952265c39c41411daf82c1 (patch) | |
| tree | 9d062e9f3792e09973c6fa49d3b4af364a50136c /lisp/play | |
| parent | 751fc7d9089a9c050ce8fd11a8f10179391fb15b (diff) | |
| download | emacs-a8bccd82cf55cae764952265c39c41411daf82c1.tar.gz | |
(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/doctor.el | 6 |
1 files 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) |