aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2012-03-17 11:13:19 +0200
committerEli Zaretskii2012-03-17 11:13:19 +0200
commit9ac7a13f088b3efd9242622a3fda55e0616e4a8f (patch)
treedb0af77545f0913169ad28c2f5d226e3fa1b141c
parent66ecdc9e08549b2b978c619ad697da45e048aa54 (diff)
downloademacs-9ac7a13f088b3efd9242622a3fda55e0616e4a8f.tar.gz
emacs-9ac7a13f088b3efd9242622a3fda55e0616e4a8f.zip
Improve error message in ispell-get-decoded-string.
lisp/textmodes/ispell.el (ispell-get-decoded-string): Make the error message mention the alists that need to be fixed.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/ispell.el3
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00ea787721c..3be8553dd69 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-03-17 Eli Zaretskii <eliz@gnu.org>
2
3 * textmodes/ispell.el (ispell-get-decoded-string): Make the error
4 message more clear.
5
12012-03-16 Leo Liu <sdl.web@gmail.com> 62012-03-16 Leo Liu <sdl.web@gmail.com>
2 7
3 * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo. 8 * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo.
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c1fcb6013b2..bee903f0284 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1307,7 +1307,8 @@ Protects against bogus binding of `enable-multibyte-characters' in XEmacs."
1307 (let* ((slot (or 1307 (let* ((slot (or
1308 (assoc ispell-current-dictionary ispell-local-dictionary-alist) 1308 (assoc ispell-current-dictionary ispell-local-dictionary-alist)
1309 (assoc ispell-current-dictionary ispell-dictionary-alist) 1309 (assoc ispell-current-dictionary ispell-dictionary-alist)
1310 (error "No match for the current dictionary"))) 1310 (error "No data for dictionary \"%s\", neither in `ispell-local-dictionary-alist' nor in `ispell-dictionary-alist'"
1311 ispell-current-dictionary)))
1311 (str (nth n slot))) 1312 (str (nth n slot)))
1312 (when (and (> (length str) 0) 1313 (when (and (> (length str) 0)
1313 (not (multibyte-string-p str))) 1314 (not (multibyte-string-p str)))