martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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)))