# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1255748936 0
# Node ID 5baebf489b9e6f6f6a2129efeb178c2891117a23
# Parent  f51e9b41be2ccafad6ec215aa47cff76c2d64738
Ulrich Mueller  <ulm at gentoo.org>

(doctor-adverbp): Exclude some nouns.	(Bug#4565)

diff -r f51e9b41be2c -r 5baebf489b9e lisp/play/doctor.el
--- 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)))