diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-10-17 03:08:56 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-10-17 03:08:56 +0000 |
| commit | f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f (patch) | |
| tree | 01386affcf0aa0dc22ffbedba14dc2c906e199da /lisp/play | |
| parent | 35f5c1d28f44eb2302601f88be7153f85999c17b (diff) | |
| download | emacs-f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f.tar.gz | |
Ulrich Mueller <ulm at gentoo.org>
(doctor-adverbp): Exclude some nouns. (Bug#4565)
Diffstat (limited to 'lisp/play')
| -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))) |