From 744ba0e3eedce992b2d7b8683dfca041939556c4 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 17 Sep 2011 15:07:50 +0300 Subject: [PATCH] * 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 --- lisp/ChangeLog | 6 ++++++ 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 + + * 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 * 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)))) -- 2.39.5