diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-08-31 22:21:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-08-31 22:21:53 +0000 |
| commit | 9d61dddb385b4e7795c066fcb4aed3f177ecc8d5 (patch) | |
| tree | e2f01282d1f561b2a62928cf4122b8c397a3604f /lisp/play | |
| parent | 066f49a015eec68335c260fa370041184646f7c1 (diff) | |
| download | emacs-9d61dddb385b4e7795c066fcb4aed3f177ecc8d5.tar.gz | |
(make-doctor-variables): Eliminate unused variables `elist'
and `monosyllables'.
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/doctor.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index ff03de852ff..8b68c9447c9 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el @@ -86,14 +86,6 @@ reads the sentence before point, and prints the Doctor's answer." (insert "\n")) (defun make-doctor-variables () - (make-local-variable 'monosyllables) - (setq monosyllables - " - Your attitude at the end of the session was wholly unacceptable. - Please try to come back next time with a willingness to speak more - freely. If you continue to refuse to talk openly, there is little - I can do to help! -") (make-local-variable 'typos) (setq typos (mapcar (function (lambda (x) @@ -347,12 +339,6 @@ reads the sentence before point, and prints the Doctor's answer." (($ please) allow me to do the questioning \.) (i have asked myself that question many times \.) (($ please) try to answer that question yourself \.))) - (make-local-variable 'elist) - (setq elist - '((($ please) try to calm yourself \.) - (you seem very excited \. relax \. ($ please) ($ describe) ($ things) - \.) - (you\'re being very emotional \. calm down \.))) (make-local-variable 'foullst) (setq foullst '((($ please) watch your tongue!) |