[Emacs-diffs] /srv/bzr/emacs/trunk r102064: * lisp/textmodes/flyspell.el (flyspell-mode): If there was an error,

[Glenn Morris]

------------------------------------------------------------
revno: 102064
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-23 14:58:18 -0700
message:
  * 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
modified:
  lisp/ChangeLog
  lisp/textmodes/flyspell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-23 21:13:39 +0000
+++ b/lisp/ChangeLog    2010-10-23 21:58:18 +0000
@@ -1,5 +1,8 @@
 2010-10-23  Glenn Morris  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2010-08-24 20:58:07 +0000
+++ b/lisp/textmodes/flyspell.el        2010-10-23 21:58:18 +0000
@@ -494,9 +494,9 @@
   :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 @@
 
 (provide 'flyspell)
 
-;; arch-tag: 05d915b9-e9cf-44fb-9137-fc28f5eaab2a
 ;;; flyspell.el ends here