diff options
| author | Stefan Monnier | 2000-08-16 21:03:36 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-08-16 21:03:36 +0000 |
| commit | 7382bcae29e08faa99ef275d83cd4cb31aace60a (patch) | |
| tree | 8571c11d449e7cb7d51003eb64283014c3ba788c /lisp/play | |
| parent | 7a3ec18a3cac2da58be8829807839f8f6ebaff8f (diff) | |
| download | emacs-7382bcae29e08faa99ef275d83cd4cb31aace60a.tar.gz emacs-7382bcae29e08faa99ef275d83cd4cb31aace60a.zip | |
*** empty log message ***
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/doctor.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el index 64f92102313..c5ed41d9b48 100644 --- a/lisp/play/doctor.el +++ b/lisp/play/doctor.el | |||
| @@ -947,7 +947,7 @@ Otherwise call the Doctor to parse preceding sentence." | |||
| 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))) |