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)

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 6d02cf9369e397122ced9ec77d2645a27d4efeaa..5b1d0d75785c477ea04172fda477bcdb7c347884 100644 (file)
--- 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)))