Mercurial > emacs
comparison lisp/play/doctor.el @ 47588:73e46b26325e
(doctor-doc): Add 2 question words.
(doctor-getnoun): Parse and save the complete object phrase.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 Sep 2002 16:04:50 +0000 |
| parents | d8c0258cdf14 |
| children | 0d8b17d428b5 |
comparison
equal
deleted
inserted
replaced
| 47587:7e861822d947 | 47588:73e46b26325e |
|---|---|
| 903 'most 'recent 'possessive | 903 'most 'recent 'possessive |
| 904 'is owner "\n" | 904 'is owner "\n" |
| 905 'sentence 'used 'was | 905 'sentence 'used 'was |
| 906 "..." | 906 "..." |
| 907 '(doc// bak)))) | 907 '(doc// bak)))) |
| 908 ((memq (car sent) '(do has have how when where who why)) | 908 ((memq (car sent) '(are is do has have how when where who why)) |
| 909 (doctor-type (doc$ qlist))) | 909 (doctor-type (doc$ qlist))) |
| 910 ;; ((eq (car sent) 'forget) | 910 ;; ((eq (car sent) 'forget) |
| 911 ;; (set (cadr sent) nil) | 911 ;; (set (cadr sent) nil) |
| 912 ;; (doctor-type '((doc$ isee)(doc$ please) | 912 ;; (doctor-type '((doc$ isee)(doc$ please) |
| 913 ;; (doc$ continue)\.))) | 913 ;; (doc$ continue)\.))) |
| 1164 (list | 1164 (list |
| 1165 (cons | 1165 (cons |
| 1166 (car x) (car x)))))) | 1166 (car x) (car x)))))) |
| 1167 " ") | 1167 " ") |
| 1168 (doctor-getnoun (cdr x)))) | 1168 (doctor-getnoun (cdr x)))) |
| 1169 (t (setq object (car x))) )) | 1169 (t (setq object (car x)) |
| 1170 (doctor-build (doctor-build (car x) " ") (doctor-getnoun (cdr x)))) | |
| 1171 )) | |
| 1170 | 1172 |
| 1171 (defun doctor-modifierp (x) | 1173 (defun doctor-modifierp (x) |
| 1172 (or (doctor-adjectivep x) | 1174 (or (doctor-adjectivep x) |
| 1173 (doctor-adverbp x) | 1175 (doctor-adverbp x) |
| 1174 (doctor-othermodifierp x))) | 1176 (doctor-othermodifierp x))) |