[Emacs-diffs] Changes to emacs/lisp/play/doctor.el

[Richard M . Stallman]

Index: emacs/lisp/play/doctor.el
diff -c emacs/lisp/play/doctor.el:1.38 emacs/lisp/play/doctor.el:1.39
*** emacs/lisp/play/doctor.el:1.38      Tue Aug  2 09:40:10 2005
--- emacs/lisp/play/doctor.el   Sun Oct 23 18:19:47 2005
***************
*** 954,960 ****
                      (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-rthing))
                     (t
                      (doctor-type '((doc$ whysay) that i shouldn\'t
--- 954,960 ----
                      (doctor-type '(are you (doc$ afraidof) that \?)))
                     ((zerop (random 2))
                      (doctor-type '(don\'t tell me what to do \. i am the
!                                           doctor here!))
                      (doctor-rthing))
                     (t
                      (doctor-type '((doc$ whysay) that i shouldn\'t
***************
*** 1552,1559 ****
        (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 \.)))
  
  (defun doctor-hates ()
    (doctor-svo sent found 1 t)
--- 1552,1559 ----
        (t (doctor-type '((doc$ whysay)(list subj verb obj))))))
  
  (defun doctor-symptoms ()
!   (doctor-type '((doc$ maybe) you should consult a medical doctor\;
!                i am a psychotherapist. \.)))
  
  (defun doctor-hates ()
    (doctor-svo sent found 1 t)