diff options
Diffstat (limited to 'lisp/play/doctor.el')
| -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." (defun doctor-adverbp (xx) (let ((xxstr (doctor-make-string xx))) (and (>= (length xxstr) 2) - (string-equal (substring (doctor-make-string xx) -2) "ly")))) + (string-equal (substring (doctor-make-string xx) -2) "ly") + (not (memq xx '(family fly jelly rally)))))) (defun doctor-articlep (x) (memq x '(the a an))) |