mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* lisp/textmodes/ispell.el (ispell-word): Add to the error message

Browse Source 
the word, ispell program name and current dictionary.
(ispell-tex-arg-end): Capitalize "error" in the error message.

Fixes: debbugs:9121
This commit is contained in:
Juri Linkov 2011-09-17 15:07:50 +03:00
parent d1fbe1c393
commit 744ba0e3ee
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

8
lisp/textmodes/ispell.el
View File

@ -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))))