* 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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b4d2e8b660af0ff41c3b91394c43e99b8d0c8b1..49a8f931fb2767ac369d1eb56ba58d972f3fc277 100644 (file)
--- 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 5521cfd3de8d7fe8d0874c7d9226de865d0312d1..b76b0a303dfaf034ee27defb0480aff10e25bd77 100644 (file)
--- 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))))