Mercurial > emacs

comparison lisp/play/doctor.el @ 16007:def38ab5315c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-doctor-variables): Eliminate `observation-list' also.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 Aug 1996 22:24:46 +0000
parents 2cc9369185ed
children b9074a68d6be
comparison
equal deleted inserted replaced
16006:2cc9369185ed 16007:def38ab5315c
527 (setq verb nil) 527 (setq verb nil)
528 (make-local-variable 'obj) 528 (make-local-variable 'obj)
529 (setq obj nil) 529 (setq obj nil)
530 (make-local-variable 'feared) 530 (make-local-variable 'feared)
531 (setq feared nil) 531 (setq feared nil)
532 (make-local-variable 'observation-list)
533 (setq observation-list nil)
534 (make-local-variable 'repetitive-shortness) 532 (make-local-variable 'repetitive-shortness)
535 (setq repetitive-shortness '(0 . 0)) 533 (setq repetitive-shortness '(0 . 0))
536 (make-local-variable '**mad**) 534 (make-local-variable '**mad**)
537 (setq **mad** nil) 535 (setq **mad** nil)
538 (make-local-variable 'rms-flag) 536 (make-local-variable 'rms-flag)
1464 carry on a reasonable conversation!)) 1462 carry on a reasonable conversation!))
1465 (setq **mad** t)) 1463 (setq **mad** t))
1466 (t 1464 (t
1467 (doctor-type '(i give up \. you need a lesson in creative 1465 (doctor-type '(i give up \. you need a lesson in creative
1468 writing \.\.\.)) 1466 writing \.\.\.))
1469 ;;(push monosyllables observation-list)
1470 ))) 1467 )))
1471 (t 1468 (t
1472 (cond ((equal sent (doctor-assm '(yes))) 1469 (cond ((equal sent (doctor-assm '(yes)))
1473 (doctor-type '(($ isee) ($ inter) ($ whysay) this is so \?))) 1470 (doctor-type '(($ isee) ($ inter) ($ whysay) this is so \?)))
1474 ((equal sent (doctor-assm '(because))) 1471 ((equal sent (doctor-assm '(because)))