[Emacs-diffs] /srv/bzr/emacs/trunk r107619: Improve error message in ispell-get-decoded-string.

[Eli Zaretskii]

------------------------------------------------------------
revno: 107619
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Sat 2012-03-17 11:13:19 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-16 16:36:27 +0000
+++ b/lisp/ChangeLog    2012-03-17 09:13:19 +0000
@@ -1,3 +1,8 @@
+2012-03-17  Eli Zaretskii  <address@hidden>
+
+       * textmodes/ispell.el (ispell-get-decoded-string): Make the error
+       message more clear.
+
 2012-03-16  Leo Liu  <address@hidden>
 
        * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2012-01-19 07:21:25 +0000
+++ b/lisp/textmodes/ispell.el  2012-03-17 09:13:19 +0000
@@ -1307,7 +1307,8 @@
   (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)))