Mercurial > emacs
changeset 71100:83b8d9f95633
* textmodes/flyspell.el (turn-on-flyspell, turn-off-flyspell): New
functions.
* textmodes/text-mode.el (text-mode-hook): Use turn-on-flyspell.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Tue, 30 May 2006 18:37:15 +0000 |
| parents | 700430ab512f |
| children | dd2f1677d4ad |
| files | lisp/ChangeLog lisp/textmodes/flyspell.el lisp/textmodes/text-mode.el |
| diffstat | 3 files changed, 20 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 30 16:32:09 2006 +0000 +++ b/lisp/ChangeLog Tue May 30 18:37:15 2006 +0000 @@ -1,3 +1,10 @@ +2006-05-30 Reiner Steib <Reiner.Steib@gmx.de> + + * textmodes/flyspell.el (turn-on-flyspell, turn-off-flyspell): New + functions. + + * textmodes/text-mode.el (text-mode-hook): Use turn-on-flyspell. + 2006-05-30 Carsten Dominik <dominik@science.uva.nl> * textmodes/org.el: (org-agenda-highlight-todo): Make sure regexp
--- a/lisp/textmodes/flyspell.el Tue May 30 16:32:09 2006 +0000 +++ b/lisp/textmodes/flyspell.el Tue May 30 18:37:15 2006 +0000 @@ -486,6 +486,18 @@ (flyspell-mode-on) (flyspell-mode-off))) +;;;###autoload +(defun turn-on-flyspell () + "Unconditionally turn on Flyspell mode." + (flyspell-mode 1)) + +;;;###autoload +(defun turn-off-flyspell () + "Unconditionally turn off Flyspell mode." + (flyspell-mode -1)) + +(custom-add-option 'text-mode-hook 'turn-on-flyspell) + ;;*---------------------------------------------------------------------*/ ;;* flyspell-buffers ... */ ;;* ------------------------------------------------------------- */
--- a/lisp/textmodes/text-mode.el Tue May 30 16:32:09 2006 +0000 +++ b/lisp/textmodes/text-mode.el Tue May 30 18:37:15 2006 +0000 @@ -33,7 +33,7 @@ (defcustom text-mode-hook nil "Normal hook run when entering Text mode and many related modes." :type 'hook - :options '(turn-on-auto-fill flyspell-mode) + :options '(turn-on-auto-fill turn-on-flyspell) :group 'data) (defvar text-mode-variant nil