diff options
| author | Glenn Morris | 2009-10-17 03:08:56 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-10-17 03:08:56 +0000 |
| commit | f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f (patch) | |
| tree | 01386affcf0aa0dc22ffbedba14dc2c906e199da | |
| parent | 35f5c1d28f44eb2302601f88be7153f85999c17b (diff) | |
| download | emacs-f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f.tar.gz emacs-f8ad49508aebd6fb54bfdf0668c1fdebaf3bb55f.zip | |
Ulrich Mueller <ulm at gentoo.org>
(doctor-adverbp): Exclude some nouns. (Bug#4565)
| -rw-r--r-- | lisp/play/doctor.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 1190 | (defun doctor-adverbp (xx) | 1190 | (defun doctor-adverbp (xx) |
| 1191 | (let ((xxstr (doctor-make-string xx))) | 1191 | (let ((xxstr (doctor-make-string xx))) |
| 1192 | (and (>= (length xxstr) 2) | 1192 | (and (>= (length xxstr) 2) |
| 1193 | (string-equal (substring (doctor-make-string xx) -2) "ly")))) | 1193 | (string-equal (substring (doctor-make-string xx) -2) "ly") |
| 1194 | (not (memq xx '(family fly jelly rally)))))) | ||
| 1194 | 1195 | ||
| 1195 | (defun doctor-articlep (x) | 1196 | (defun doctor-articlep (x) |
| 1196 | (memq x '(the a an))) | 1197 | (memq x '(the a an))) |