diff options
| author | Richard M. Stallman | 2005-10-23 18:19:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-10-23 18:19:47 +0000 |
| commit | a8bccd82cf55cae764952265c39c41411daf82c1 (patch) | |
| tree | 9d062e9f3792e09973c6fa49d3b4af364a50136c | |
| parent | 751fc7d9089a9c050ce8fd11a8f10179391fb15b (diff) | |
| download | emacs-a8bccd82cf55cae764952265c39c41411daf82c1.tar.gz emacs-a8bccd82cf55cae764952265c39c41411daf82c1.zip | |
(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.
| -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." | |||
| 954 | (doctor-type '(are you (doc$ afraidof) that \?))) | 954 | (doctor-type '(are you (doc$ afraidof) that \?))) |
| 955 | ((zerop (random 2)) | 955 | ((zerop (random 2)) |
| 956 | (doctor-type '(don\'t tell me what to do \. i am the | 956 | (doctor-type '(don\'t tell me what to do \. i am the |
| 957 | psychiatrist here!)) | 957 | doctor here!)) |
| 958 | (doctor-rthing)) | 958 | (doctor-rthing)) |
| 959 | (t | 959 | (t |
| 960 | (doctor-type '((doc$ whysay) that i shouldn\'t | 960 | (doctor-type '((doc$ whysay) that i shouldn\'t |
| @@ -1552,8 +1552,8 @@ Hack on previous word, setting global variable OWNER to correct result." | |||
| 1552 | (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) | 1552 | (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) |
| 1553 | 1553 | ||
| 1554 | (defun doctor-symptoms () | 1554 | (defun doctor-symptoms () |
| 1555 | (doctor-type '((doc$ maybe) you should consult a doctor of medicine\, | 1555 | (doctor-type '((doc$ maybe) you should consult a medical doctor\; |
| 1556 | i am a psychiatrist \.))) | 1556 | i am a psychotherapist. \.))) |
| 1557 | 1557 | ||
| 1558 | (defun doctor-hates () | 1558 | (defun doctor-hates () |
| 1559 | (doctor-svo sent found 1 t) | 1559 | (doctor-svo sent found 1 t) |