/[emacs]/emacs/lisp/play/doctor.el
ViewVC logotype

Diff of /emacs/lisp/play/doctor.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by lektu, Tue Aug 2 09:40:10 2005 UTC revision 1.39 by rms, Sun Oct 23 18:19:47 2005 UTC
# Line 954  Otherwise call the Doctor to parse prece Line 954  Otherwise call the Doctor to parse prece
954                        (doctor-type '(are you (doc$ afraidof) that \?)))                        (doctor-type '(are you (doc$ afraidof) that \?)))
955                       ((zerop (random 2))                       ((zerop (random 2))
956                        (doctor-type '(don\'t tell me what to do \. i am the                        (doctor-type '(don\'t tell me what to do \. i am the
957                                              psychiatrist here!))                                              doctor here!))
958                        (doctor-rthing))                        (doctor-rthing))
959                       (t                       (t
960                        (doctor-type '((doc$ whysay) that i shouldn\'t                        (doctor-type '((doc$ whysay) that i shouldn\'t
# Line 1552  Hack on previous word, setting global va Line 1552  Hack on previous word, setting global va
1552          (t (doctor-type '((doc$ whysay)(list subj verb obj))))))          (t (doctor-type '((doc$ whysay)(list subj verb obj))))))
1553    
1554  (defun doctor-symptoms ()  (defun doctor-symptoms ()
1555    (doctor-type '((doc$ maybe) you should consult a doctor of medicine\,    (doctor-type '((doc$ maybe) you should consult a medical doctor\;
1556                   i am a psychiatrist \.)))                   i am a psychotherapist. \.)))
1557    
1558  (defun doctor-hates ()  (defun doctor-hates ()
1559    (doctor-svo sent found 1 t)    (doctor-svo sent found 1 t)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26