From f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 17 Oct 2009 03:08:56 +0000
Subject: [PATCH] Ulrich Mueller  <ulm at gentoo.org>

(doctor-adverbp): Exclude some nouns.	(Bug#4565)
---
 lisp/play/doctor.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)))
-- 
2.39.5