From 9ac7a13f088b3efd9242622a3fda55e0616e4a8f Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 17 Mar 2012 11:13:19 +0200 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/ispell.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00ea787721c..3be8553dd69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-03-17 Eli Zaretskii + + * textmodes/ispell.el (ispell-get-decoded-string): Make the error + message more clear. + 2012-03-16 Leo Liu * 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." (let* ((slot (or (assoc ispell-current-dictionary ispell-local-dictionary-alist) (assoc ispell-current-dictionary ispell-dictionary-alist) - (error "No match for the current dictionary"))) + (error "No data for dictionary \"%s\", neither in `ispell-local-dictionary-alist' nor in `ispell-dictionary-alist'" + ispell-current-dictionary))) (str (nth n slot))) (when (and (> (length str) 0) (not (multibyte-string-p str))) -- 2.11.4.GIT