* lisp/textmodes/flyspell.el (flyspell-mode): If there was an error,

say what it was.

Otherwise someone is going to report the same meaningless bug for the
rest of time.

http://debbugs.gnu.org/cgi/bugreport.cgi?bug=5574
http://debbugs.gnu.org/cgi/bugreport.cgi?bug=5576
http://debbugs.gnu.org/cgi/bugreport.cgi?bug=7272

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07350947106b4784588658baf54639892e449d55..6bb57872a61615d914e58a64ecb639167028d294 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-10-23  Glenn Morris  <rgm@gnu.org>
 
+       * textmodes/flyspell.el (flyspell-mode): If there was an error,
+       say what it was.
+
        * frame.el (auto-hscroll-mode, cursor-in-non-selected-windows):
        Sync docs with C version.
 

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 8a73a0f818ea5cad592e3608a03ad02224ada3c5..e449984043cbc3e10e002c05b82fc1446edd8c46 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -494,9 +494,9 @@ in your .emacs file.
   :keymap flyspell-mode-map
   :group 'flyspell
   (if flyspell-mode
-      (condition-case ()
+      (condition-case err
          (flyspell-mode-on)
-       (error (message "Enabling Flyspell mode gave an error")
+       (error (message "Error enabling Flyspell mode:\n%s" (cdr err))
               (flyspell-mode -1)))
     (flyspell-mode-off)))
 
@@ -2354,5 +2354,4 @@ This function is meant to be added to `flyspell-incorrect-hook'."
 
 (provide 'flyspell)
 
-;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a
 ;;; flyspell.el ends here