Mercurial > emacs

comparison lisp/play/doctor.el @ 15063:dc10bb3b05e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)