Mercurial > emacs
comparison lisp/play/doctor.el @ 621:eca8812e61cd
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 24 Apr 1992 08:11:54 +0000 |
parents | 10994e910591 |
children | 8a533acedb77 |
comparison
equal
deleted
inserted
replaced
620:88a29c720fa7 | 621:eca8812e61cd |
---|---|
1317 (defun doctor-svo (sent key type mem) | 1317 (defun doctor-svo (sent key type mem) |
1318 "Find subject, verb and object in sentence SENT with focus on word KEY. | 1318 "Find subject, verb and object in sentence SENT with focus on word KEY. |
1319 TYPE is number of words preceding KEY to start looking for subject. | 1319 TYPE is number of words preceding KEY to start looking for subject. |
1320 MEM is t if results are to be put on Doctor's memory stack. | 1320 MEM is t if results are to be put on Doctor's memory stack. |
1321 Return in the global variables SUBJ, VERB and OBJECT." | 1321 Return in the global variables SUBJ, VERB and OBJECT." |
1322 (let ((foo (doctor-subjsearch sent key type) sent)) | 1322 (let ((foo (doctor-subjsearch sent key type))) |
1323 (or foo | 1323 (or foo |
1324 (setq foo sent | 1324 (setq foo sent |
1325 mem nil)) | 1325 mem nil)) |
1326 (while (and (null (doctor-verbp (car foo))) (cdr foo)) | 1326 (while (and (null (doctor-verbp (car foo))) (cdr foo)) |
1327 (setq foo (cdr foo))) | 1327 (setq foo (cdr foo))) |