* textmodes/flyspell.el (turn-on-flyspell, turn-off-flyspell): New

functions.

* textmodes/text-mode.el (text-mode-hook): Use turn-on-flyspell.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 675087bc16c39a138a66bd0f9b5e9fb0e2d71fbf..bd2821c2a3fc601c33040c33085d59fb869972e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index c20ecef31e0c457fa35e4f428d32bfb612d5653e..23f4756f4a79429d927cea1fad6ae407491f787a 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -486,6 +486,18 @@ in your .emacs file.
       (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 ...                                             */
 ;;*    -------------------------------------------------------------    */

diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index a4b670576764b57c1570b243aaab3ea22248edc1..9263c48f18b3e1be1e33fa687586cd74f9ec701f 100644 (file)
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -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