* 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.

Fixes: debbugs:9121

2 files changed, 12 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b4d2e8b660..49a8f931fb2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-09-17  Juri Linkov  <juri@jurta.org>
+
+        * 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  <schwab@linux-m68k.org>
 
         * emacs-lisp/bytecomp.el (byte-compile-lapcode): Fix overflow
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5521cfd3de8..b76b0a303df 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1723,7 +1723,11 @@ quit          spell session exited."
                   (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 @@ Must call after `ispell-buffer-local-parsing' due to dependence on mode."
         (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))))