Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 8221:0b9e18f9b085
(ispell-word): Call ispell-dehighlight.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 12 Jul 1994 07:15:24 +0000 |
| parents | f152f2b276c5 |
| children | ace71f0fc661 |
comparison
equal
deleted
inserted
replaced
| 8220:aea786f4cdd1 | 8221:0b9e18f9b085 |
|---|---|
| 368 With a prefix argument, resume handling of the previous Ispell command." | 368 With a prefix argument, resume handling of the previous Ispell command." |
| 369 (interactive "P") | 369 (interactive "P") |
| 370 (if resume | 370 (if resume |
| 371 (ispell-next) | 371 (ispell-next) |
| 372 (condition-case err | 372 (condition-case err |
| 373 (catch 'ispell-quit | 373 (unwind-protect |
| 374 (save-window-excursion | 374 (catch 'ispell-quit |
| 375 (ispell-point (point) "at point.")) | 375 (save-window-excursion |
| 376 (ispell-dump)) | 376 (ispell-point (point) "at point.")) |
| 377 (ispell-dump)) | |
| 378 (ispell-dehighlight)) | |
| 377 (ispell-startup-error | 379 (ispell-startup-error |
| 378 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") | 380 (cond ((y-or-n-p "Problem starting ispell, use old-style spell instead? ") |
| 379 (load-library "spell") | 381 (load-library "spell") |
| 380 (define-key esc-map "$" 'spell-word) | 382 (define-key esc-map "$" 'spell-word) |
| 381 (spell-word))))))) | 383 (spell-word))))))) |