Mercurial > emacs
comparison lisp/play/doctor.el @ 15063:dc10bb3b05e2
(doctor-doc): Add period.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 23 Apr 1996 15:30:28 +0000 |
parents | f00693d65ff3 |
children | 2cc9369185ed |
comparison
equal
deleted
inserted
replaced
15062:de7528327c39 | 15063:dc10bb3b05e2 |
---|---|
883 ;; Main processing function for sentences that have been read. | 883 ;; Main processing function for sentences that have been read. |
884 | 884 |
885 (defun doctor-doc (sent) | 885 (defun doctor-doc (sent) |
886 (cond | 886 (cond |
887 ((equal sent '(foo)) | 887 ((equal sent '(foo)) |
888 (doctor-type '(bar! ($ please)($ continue)))) | 888 (doctor-type '(bar! ($ please)($ continue) \.))) |
889 ((member sent howareyoulst) | 889 ((member sent howareyoulst) |
890 (doctor-type '(i\'m ok \. ($ describe) yourself \.))) | 890 (doctor-type '(i\'m ok \. ($ describe) yourself \.))) |
891 ((or (member sent '((good bye) (see you later) (i quit) (so long) | 891 ((or (member sent '((good bye) (see you later) (i quit) (so long) |
892 (go away) (get lost))) | 892 (go away) (get lost))) |
893 (memq (car sent) | 893 (memq (car sent) |