Mercurial > emacs
diff lisp/play/doctor.el @ 30887:c4366892a814
*** empty log message ***
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 16 Aug 2000 21:03:36 +0000 |
parents | 9e05f48b210e |
children | 8f47d09a2be7 |
line wrap: on
line diff
--- a/lisp/play/doctor.el Wed Aug 16 20:54:44 2000 +0000 +++ b/lisp/play/doctor.el Wed Aug 16 21:03:36 2000 +0000 @@ -947,7 +947,7 @@ (defun doctor-correct-spelling (sent) "Correct the spelling and expand each word in sentence." (if sent - (apply 'append (mapcar '(lambda (word) + (apply 'append (mapcar (lambda (word) (if (memq word typos) (get (get word 'doctor-correction) 'doctor-expansion) (list word)))