Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 30886:207eba858980 | 30887:c4366892a814 |
|---|---|
| 945 ;; Things done to process sentences once read. | 945 ;; Things done to process sentences once read. |
| 946 | 946 |
| 947 (defun doctor-correct-spelling (sent) | 947 (defun doctor-correct-spelling (sent) |
| 948 "Correct the spelling and expand each word in sentence." | 948 "Correct the spelling and expand each word in sentence." |
| 949 (if sent | 949 (if sent |
| 950 (apply 'append (mapcar '(lambda (word) | 950 (apply 'append (mapcar (lambda (word) |
| 951 (if (memq word typos) | 951 (if (memq word typos) |
| 952 (get (get word 'doctor-correction) 'doctor-expansion) | 952 (get (get word 'doctor-correction) 'doctor-expansion) |
| 953 (list word))) | 953 (list word))) |
| 954 sent)))) | 954 sent)))) |
| 955 | 955 |