diff options
| -rw-r--r-- | lisp/play/doctor.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 2d4ebd75ede..dc5f3ca4b89 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el | |||
| @@ -1190,7 +1190,8 @@ the subject noun, and return the portion of the sentence following it." | |||
| 1190 | (defun doctor-adverbp (xx) | 1190 | (defun doctor-adverbp (xx) |
| 1191 | (let ((xxstr (doctor-make-string xx))) | 1191 | (let ((xxstr (doctor-make-string xx))) |
| 1192 | (and (>= (length xxstr) 2) | 1192 | (and (>= (length xxstr) 2) |
| 1193 | (string-equal (substring (doctor-make-string xx) -2) "ly")))) | 1193 | (string-equal (substring (doctor-make-string xx) -2) "ly") |
| 1194 | (not (memq xx '(family fly jelly rally)))))) | ||
| 1194 | 1195 | ||
| 1195 | (defun doctor-articlep (x) | 1196 | (defun doctor-articlep (x) |
| 1196 | (memq x '(the a an))) | 1197 | (memq x '(the a an))) |