[Emacs-diffs] /srv/bzr/emacs/trunk r105805: * lisp/textmodes/ispell.el (ispell-word): Add to the error message

[Juri Linkov]

------------------------------------------------------------
revno: 105805
fixes bug(s): http://debbugs.gnu.org/9121
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2011-09-17 15:07:50 +0300
message:
  * lisp/textmodes/ispell.el (ispell-word): Add to the error message
  the word, ispell program name and current dictionary.
  (ispell-tex-arg-end): Capitalize "error" in the error message.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-17 09:29:01 +0000
+++ b/lisp/ChangeLog    2011-09-17 12:07:50 +0000
@@ -1,3 +1,9 @@
+2011-09-17  Juri Linkov  <address@hidden>
+
+       * textmodes/ispell.el (ispell-word): Add to the error message
+       the word, ispell program name and current dictionary (bug#9121).
+       (ispell-tex-arg-end): Capitalize "error" in the error message.
+
 2011-09-17  Andreas Schwab  <address@hidden>
 
        * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2011-08-25 19:54:07 +0000
+++ b/lisp/textmodes/ispell.el  2011-09-17 12:07:50 +0000
@@ -1723,7 +1723,11 @@
                  (extent-at start)
                  (and (fboundp 'delete-extent)
                       (delete-extent (extent-at start)))))
-           ((null poss) (message "Error in ispell process"))
+           ((null poss)
+            (message "Error checking word %s using %s with %s dictionary"
+                     (funcall ispell-format-word-function word)
+                     (file-name-nondirectory ispell-program-name)
+                     (or ispell-current-dictionary "default")))
            (ispell-check-only        ; called from ispell minor mode.
             (if (fboundp 'make-extent)
                 (if (fboundp 'set-extent-property)
@@ -3034,7 +3038,7 @@
        (while (looking-at "[ \t\n]*\\[") (forward-sexp))
        (forward-sexp (or arg 1)))
     (error
-     (message "error skipping s-expressions at point %d." (point))
+     (message "Error skipping s-expressions at point %d." (point))
      (beep)
      (sit-for 2))))