Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/play/doctor.el Mon Sep 23 16:03:03 2002 +0000 +++ b/lisp/play/doctor.el Mon Sep 23 16:04:50 2002 +0000 @@ -905,7 +905,7 @@ '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 @@ (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)