From: Glenn Morris <rgm@gnu.org>
Date: Sat, 17 Oct 2009 03:09:25 +0000 (+0000)
Subject: Jari Aalto  <jari.aalto at cante.net>
X-Git-Tag: emacs-pretest-23.1.90~766
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a567af584204fc3bc50c5d0584101e077f51e5f9;p=emacs.git

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 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)))