diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-23 16:04:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-23 16:04:57 +0000 |
| commit | daa6ddb5d6926516d1f82cffc3fdfbba16f372d8 (patch) | |
| tree | 91f844529abab1213385666b68adc6e8d4d3e574 /lisp/play | |
| parent | 0f7df8ac6ab7428289445a1109413d628f2a884a (diff) | |
| download | emacs-daa6ddb5d6926516d1f82cffc3fdfbba16f372d8.tar.gz | |
(doctor-doc): Add 2 question words.
(doctor-getnoun): Parse and save the complete object phrase.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/doctor.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 4254a99f27e..2f00b9dfb3a 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -905,7 +905,7 @@ Otherwise call the Doctor to parse preceding sentence." 'sentence 'used 'was "..." '(doc// bak)))) - ((memq (car sent) '(do has have how when where who why)) + ((memq (car sent) '(are is do has have how when where who why)) (doctor-type (doc$ qlist))) ;; ((eq (car sent) 'forget) ;; (set (cadr sent) nil) @@ -1166,7 +1166,9 @@ the subject noun, and return the portion of the sentence following it." (car x) (car x)))))) " ") (doctor-getnoun (cdr x)))) - (t (setq object (car x))) )) + (t (setq object (car x)) + (doctor-build (doctor-build (car x) " ") (doctor-getnoun (cdr x)))) + )) (defun doctor-modifierp (x) (or (doctor-adjectivep x) |