Mercurial > emacs
changeset 16006:2cc9369185ed
(make-doctor-variables): Eliminate unused variables `elist'
and `monosyllables'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Aug 1996 22:21:53 +0000 |
| parents | 4ce6238c5458 |
| children | def38ab5315c |
| files | lisp/play/doctor.el |
| diffstat | 1 files changed, 0 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/doctor.el Sat Aug 31 22:11:26 1996 +0000 +++ b/lisp/play/doctor.el Sat Aug 31 22:21:53 1996 +0000 @@ -86,14 +86,6 @@ (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 @@ (($ 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!)