# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032797090 0
# Node ID 73e46b26325ec3e6b8e74983dd85f1b540095389
# Parent  7e861822d947578c5a6da195bc3a772b70756978
(doctor-doc): Add 2 question words.
(doctor-getnoun): Parse and save the complete object phrase.

diff -r 7e861822d947 -r 73e46b26325e lisp/play/doctor.el
--- 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)