mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Ulrich Mueller <ulm at gentoo.org>

Browse source 
(doctor-adverbp): Exclude some nouns.	(Bug#4565)
This commit is contained in:
Glenn Morris 2009-10-17 03:08:56 +00:00
parent 35f5c1d28f
commit f8ad49508a
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/play/doctor.el
View file

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