Mercurial > emacs

comparison lisp/play/doctor.el @ 5282:1d3c5ef6e8a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)