From: Juri Linkov Date: Sat, 17 Sep 2011 12:07:50 +0000 (+0300) Subject: * lisp/textmodes/ispell.el (ispell-word): Add to the error message X-Git-Tag: emacs-pretest-24.0.90~104^2~13 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=744ba0e3eedce992b2d7b8683dfca041939556c4;p=emacs.git * 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 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))))