Mercurial > emacs
comparison lisp/play/doctor.el @ 5282:1d3c5ef6e8a1
(make-doctor-variables): Fix some local var names.
(doctor-adverbp): Don't die if doctor-make-string
gives a string of length < 2.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 23 Dec 1993 03:36:02 +0000 |
parents | 5f6e6ea4c7af |
children | cc7cd83ccf3f |
comparison
equal
deleted
inserted
replaced
5281:edd5fb2614b1 | 5282:1d3c5ef6e8a1 |
---|---|
218 (setq longhuhlst | 218 (setq longhuhlst |
219 '((($ whysay) that \?) | 219 '((($ whysay) that \?) |
220 (i don\'t understand \.) | 220 (i don\'t understand \.) |
221 (($ thlst)) | 221 (($ thlst)) |
222 (($ areyou) ($ afraidof) that \?))) | 222 (($ areyou) ($ afraidof) that \?))) |
223 (make-local-variable 'feelings) | 223 (make-local-variable 'feelings-about) |
224 (setq feelings-about | 224 (setq feelings-about |
225 '((feelings about) | 225 '((feelings about) |
226 (aprehensions toward) | 226 (aprehensions toward) |
227 (thoughts on) | 227 (thoughts on) |
228 (emotions toward))) | 228 (emotions toward))) |
229 (make-local-variable 'random) | 229 (make-local-variable 'random-adjective) |
230 (setq random-adjective | 230 (setq random-adjective |
231 '((vivid) | 231 '((vivid) |
232 (emotionally stimulating) | 232 (emotionally stimulating) |
233 (exciting) | 233 (exciting) |
234 (boring) | 234 (boring) |
1181 (doctor-colorp x) | 1181 (doctor-colorp x) |
1182 (doctor-sizep x) | 1182 (doctor-sizep x) |
1183 (doctor-possessivepronounp x))) | 1183 (doctor-possessivepronounp x))) |
1184 | 1184 |
1185 (defun doctor-adverbp (xx) | 1185 (defun doctor-adverbp (xx) |
1186 (string-equal (substring (doctor-make-string xx) -2) "ly")) | 1186 (let ((xxstr (doctor-make-string xx))) |
1187 (and (>= (length xxstr) 2) | |
1188 (string-equal (substring (doctor-make-string xx) -2) "ly")))) | |
1187 | 1189 |
1188 (defun doctor-articlep (x) | 1190 (defun doctor-articlep (x) |
1189 (memq x '(the a an))) | 1191 (memq x '(the a an))) |
1190 | 1192 |
1191 (defun doctor-nmbrp (x) | 1193 (defun doctor-nmbrp (x) |