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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00ea787721cea0f2206a16d92f45bea2eeae436a..3be8553dd69e8f357f59165a7cf1c894c245f683 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-17  Eli Zaretskii  <eliz@gnu.org>
+
+       * textmodes/ispell.el (ispell-get-decoded-string): Make the error
+       message more clear.
+
 2012-03-16  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index c1fcb6013b24575574721e4843983287856c6a56..bee903f02844e12cc102ef652140ccd01fb1ddae 100644 (file)
--- 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)))