[Emacs-diffs] Changes to emacs/lisp/play/doctor.el

[Richard M. Stallman]

Index: emacs/lisp/play/doctor.el
diff -c emacs/lisp/play/doctor.el:1.30 emacs/lisp/play/doctor.el:1.31
*** emacs/lisp/play/doctor.el:1.30      Tue Sep 10 01:48:44 2002
--- emacs/lisp/play/doctor.el   Mon Sep 23 12:04:50 2002
***************
*** 905,911 ****
                        'sentence 'used 'was
                        "..."
                        '(doc// bak))))
!    ((memq (car sent) '(do has have how when where who why))
      (doctor-type (doc$ qlist)))
     ;;   ((eq (car sent) 'forget)
     ;;    (set (cadr sent) nil)
--- 905,911 ----
                        'sentence 'used 'was
                        "..."
                        '(doc// bak))))
!    ((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,1172 ****
                                                   (car x) (car x))))))
                                     " ")
                       (doctor-getnoun (cdr x))))
!       (t (setq object (car x))) ))
  
  (defun doctor-modifierp (x)
    (or (doctor-adjectivep x)
--- 1166,1174 ----
                                                   (car x) (car x))))))
                                     " ")
                       (doctor-getnoun (cdr x))))
!       (t (setq object (car x))
!          (doctor-build (doctor-build (car x) " ") (doctor-getnoun (cdr x))))
!       ))
  
  (defun doctor-modifierp (x)
    (or (doctor-adjectivep x)