[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/play doctor.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/play doctor.el |
Date: |
Sat, 17 Oct 2009 03:08:56 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/play doctor.el,
Glenn Morris <=