Mercurial > emacs
changeset 105642:5baebf489b9e
Ulrich Mueller <ulm at gentoo.org>
(doctor-adverbp): Exclude some nouns. (Bug#4565)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 17 Oct 2009 03:08:56 +0000 |
| parents | f51e9b41be2c |
| children | 062d17ee6c05 |
| files | lisp/play/doctor.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/doctor.el Sat Oct 17 02:35:35 2009 +0000 +++ b/lisp/play/doctor.el Sat Oct 17 03:08:56 2009 +0000 @@ -1190,7 +1190,8 @@ (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)))