[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.27 emacs/lisp/play/doctor.el:1.28
*** emacs/lisp/play/doctor.el:1.27      Tue Oct 23 12:15:39 2001
--- emacs/lisp/play/doctor.el   Sun Sep  8 20:25:09 2002
***************
*** 909,921 ****
                        'sentence 'used 'was
                        "..."
                        '(// bak))))
     ;;   ((eq (car sent) 'forget)
     ;;    (set (doctor-cadr sent) nil)
     ;;    (doctor-type '(($ isee)($ please)
     ;;     ($ continue)\.)))
     (t
      (if (doctor-defq sent) (doctor-define sent found))
!     (if (> (length sent) 12)(doctor-shorten sent))
      (setq sent (doctor-correct-spelling (doctor-replace sent replist)))
      (cond ((and (not (memq 'me sent))(not (memq 'i sent))
                (memq 'am sent))
--- 909,923 ----
                        'sentence 'used 'was
                        "..."
                        '(// bak))))
+    ((memq (car sent) '(do has have how when where who why))
+     (doctor-type ($ qlist)))
     ;;   ((eq (car sent) 'forget)
     ;;    (set (doctor-cadr sent) nil)
     ;;    (doctor-type '(($ isee)($ please)
     ;;     ($ continue)\.)))
     (t
      (if (doctor-defq sent) (doctor-define sent found))
!     (if (> (length sent) 12)(setq sent (doctor-shorten sent)))
      (setq sent (doctor-correct-spelling (doctor-replace sent replist)))
      (cond ((and (not (memq 'me sent))(not (memq 'i sent))
                (memq 'am sent))
***************
*** 956,972 ****
  (defun doctor-shorten (sent)
    "Make a sentence manageably short using a few hacks."
    (let (foo
!       retval
        (temp '(because but however besides anyway until
                    while that except why how)))
      (while temp
           (setq foo (memq (car temp) sent))
           (if (and foo
                    (> (length foo) 3))
!              (setq sent foo
!                    sent (doctor-fixup sent)
!                    temp nil
!                    retval t)
               (setq temp (cdr temp))))
      retval))
  
--- 958,972 ----
  (defun doctor-shorten (sent)
    "Make a sentence manageably short using a few hacks."
    (let (foo
!       (retval sent)
        (temp '(because but however besides anyway until
                    while that except why how)))
      (while temp
           (setq foo (memq (car temp) sent))
           (if (and foo
                    (> (length foo) 3))
!              (setq retval (doctor-fixup foo)
!                    temp nil)
               (setq temp (cdr temp))))
      retval))
  
***************
*** 1540,1546 ****
    (doctor-hates1))
  
  (defun doctor-hates1 ()
!   (doctor-type '(($ whysay)(list subj verb obj))))
  
  (defun doctor-loves ()
    (doctor-svo sent found 1 t)
--- 1540,1546 ----
    (doctor-hates1))
  
  (defun doctor-hates1 ()
!   (doctor-type '(($ whysay)(list subj verb obj) \?)))
  
  (defun doctor-loves ()
    (doctor-svo sent found 1 t)
***************
*** 1633,1643 ****
  
  
  (defun doctor-chat () (doctor-type ($ chatlst)))
- 
- (defun doctor-strangelove ()
-   (interactive)
-   (insert "Mein fuehrer!!\n")
-   (doctor-read-print))
  
  (provide 'doctor)
  
--- 1633,1638 ----