[Emacs-diffs] emacs/lisp/textmodes ispell.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/17 03:09:25

Modified files:
        lisp/textmodes : ispell.el 

Log message:
        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)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.258&r2=1.259

Patches:
Index: ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.258
retrieving revision 1.259
diff -u -b -r1.258 -r1.259
--- ispell.el   24 Sep 2009 01:37:22 -0000      1.258
+++ ispell.el   17 Oct 2009 03:09:25 -0000      1.259
@@ -1289,7 +1289,8 @@
 (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)))