mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(ispell-message): New command, with menu bar item.

Browse source
This commit is contained in:
Richard M. Stallman 1993-09-20 15:40:38 +00:00
parent 41c7388f93
commit 36ab15b2fd
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/textmodes/ispell4.el
View file

@ -222,6 +222,9 @@ that have not already been dumped will be lost."
(define-key ispell-menu-map [ispell-next]
'("Continue Check" . ispell-next))
(define-key ispell-menu-map [ispell-message]
'("Check Message" . ispell-message))
(define-key ispell-menu-map [ispell-region]
'("Check Region" . ispell-region))
@ -604,6 +607,14 @@ L lookup; Q quit\n")
(kill-emacs 1))
(write-region (point-min) (point-max) "ispell.info"))
(defun ispell-message ()
"Check the spelling for an outgoing mail message."
(interactive)
(save-excursion
(beginning-of-buffer)
(search-forward mail-header-separator nil t)
(ispell (current-buffer) (point))))
(provide 'ispell)
;;; ispell.el ends here