Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 4749:fe223c0faf71
(ispell-message): New command, with menu bar item.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Sep 1993 15:40:38 +0000 |
| parents | aaf846efe4cb |
| children | 0a297b60d293 |
comparison
equal
deleted
inserted
replaced
| 4748:a56afa1b45c1 | 4749:fe223c0faf71 |
|---|---|
| 219 (define-key ispell-menu-map [reload-ispell] | 219 (define-key ispell-menu-map [reload-ispell] |
| 220 '("Reload Dictionary" . reload-ispell)) | 220 '("Reload Dictionary" . reload-ispell)) |
| 221 | 221 |
| 222 (define-key ispell-menu-map [ispell-next] | 222 (define-key ispell-menu-map [ispell-next] |
| 223 '("Continue Check" . ispell-next)) | 223 '("Continue Check" . ispell-next)) |
| 224 | |
| 225 (define-key ispell-menu-map [ispell-message] | |
| 226 '("Check Message" . ispell-message)) | |
| 224 | 227 |
| 225 (define-key ispell-menu-map [ispell-region] | 228 (define-key ispell-menu-map [ispell-region] |
| 226 '("Check Region" . ispell-region)) | 229 '("Check Region" . ispell-region)) |
| 227 | 230 |
| 228 (define-key ispell-menu-map [ispell-buffer] | 231 (define-key ispell-menu-map [ispell-buffer] |
| 602 (Info-validate) | 605 (Info-validate) |
| 603 (if (get-buffer " *problems in info file*") | 606 (if (get-buffer " *problems in info file*") |
| 604 (kill-emacs 1)) | 607 (kill-emacs 1)) |
| 605 (write-region (point-min) (point-max) "ispell.info")) | 608 (write-region (point-min) (point-max) "ispell.info")) |
| 606 | 609 |
| 610 (defun ispell-message () | |
| 611 "Check the spelling for an outgoing mail message." | |
| 612 (interactive) | |
| 613 (save-excursion | |
| 614 (beginning-of-buffer) | |
| 615 (search-forward mail-header-separator nil t) | |
| 616 (ispell (current-buffer) (point)))) | |
| 617 | |
| 607 (provide 'ispell) | 618 (provide 'ispell) |
| 608 | 619 |
| 609 ;;; ispell.el ends here | 620 ;;; ispell.el ends here |