Mercurial > emacs

changeset 66342:a4fe475f3c8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(doctor-doc): Don't say "psychiatrist". (doctor-symptoms): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 Oct 2005 18:19:47 +0000
parents 8ad92df59512
children b105e56fe1df
files lisp/play/doctor.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/doctor.el	Sun Oct 23 18:18:11 2005 +0000
+++ b/lisp/play/doctor.el	Sun Oct 23 18:19:47 2005 +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)