# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1188231949 0
# Node ID 81b279307e4ba52b8e6cdea39dae31d8b3259cec
# Parent  68b1f44209a9b23a5a52955734f4db0cb1591caf
(flyspell-mode): Catch errors in flyspell-mode-on.

diff -r 68b1f44209a9 -r 81b279307e4b lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Mon Aug 27 13:41:54 2007 +0000
+++ b/lisp/textmodes/flyspell.el	Mon Aug 27 16:25:49 2007 +0000
@@ -485,7 +485,10 @@
   :keymap flyspell-mode-map
   :group 'flyspell
   (if flyspell-mode
-      (flyspell-mode-on)
+      (condition-case ()
+	  (flyspell-mode-on)
+	(error (message "Enabling Flyspell mode gave an error")
+	       (flyspell-mode -1)))
     (flyspell-mode-off)))
 
 ;;;###autoload