Mercurial > emacs
diff lisp/play/doctor.el @ 90261:7beb78bc1f8e
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-97
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 616-696)
- Add lisp/mh-e/.arch-inventory
- Update from CVS
- Merge from gnus--rel--5.10
- Update from CVS: lisp/smerge-mode.el: Add 'tools' to file keywords.
- lisp/gnus/ChangeLog: Remove duplicate entry
* gnus--rel--5.10 (patch 147-181)
- Update from CVS
- Merge from emacs--cvs-trunk--0
- Update from CVS: lisp/mml.el (mml-preview): Doc fix.
- Update from CVS: texi/message.texi: Fix default values.
- Update from CVS: texi/gnus.texi (RSS): Addition.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 16 Jan 2006 08:37:27 +0000 |
| parents | edf295560b5a a4fe475f3c8b |
| children | d88caeac70d7 |
line wrap: on
line diff
--- a/lisp/play/doctor.el Mon Jan 16 06:59:21 2006 +0000 +++ b/lisp/play/doctor.el Mon Jan 16 08:37:27 2006 +0000 @@ -954,7 +954,7 @@ (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 @@ (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)