[Emacs-diffs] emacs/lisp/play doctor.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/17 03:08:56

Modified files:
        lisp/play      : doctor.el 

Log message:
        Ulrich Mueller  <ulm at gentoo.org>
        
        (doctor-adverbp): Exclude some nouns.   (Bug#4565)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/play/doctor.el?cvsroot=emacs&r1=1.49&r2=1.50

Patches:
Index: doctor.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/play/doctor.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- doctor.el   27 Jun 2009 04:21:18 -0000      1.49
+++ doctor.el   17 Oct 2009 03:08:56 -0000      1.50
@@ -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)))