From a567af584204fc3bc50c5d0584101e077f51e5f9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 17 Oct 2009 03:09:25 +0000 Subject: [PATCH] Jari Aalto (ispell-get-decoded-string): Give an error if no match is found for the current dictionary. (Bug#4578) --- lisp/textmodes/ispell.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5