diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 8 |
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)))) |