Mercurial > emacs

changeset 47588:73e46b26325e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 7e861822d947
children 023de2644b2b
files lisp/play/doctor.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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)