Jari Aalto <jari.aalto at cante.net>

(ispell-get-decoded-string): Give an error if no match is found for
the current dictionary.  (Bug#4578)

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 6d02cf9369e..5b1d0d75785 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1289,7 +1289,8 @@ Protects against bogus binding of `enable-multibyte-characters' in XEmacs."
 (defun ispell-get-decoded-string (n)
   (let* ((slot (or
                 (assoc ispell-current-dictionary ispell-local-dictionary-alist)
-                (assoc ispell-current-dictionary ispell-dictionary-alist)))
+                (assoc ispell-current-dictionary ispell-dictionary-alist)
+                (error "No match for the current dictionary")))
          (str (nth n slot)))
     (when (and (> (length str) 0)
                (not (multibyte-string-p str)))