From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 27 Jan 2006 19:49:14 +0000 (+0000)
Subject: (ispell-find-aspell-dictionaries): If no English aspell dictionary is
X-Git-Tag: emacs-pretest-22.0.90~4545
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=967a91b21d9a27126d6c3b045dccf574d2b38f80;p=emacs.git

(ispell-find-aspell-dictionaries): If no English aspell dictionary is
installed, use the first entry of ispell-dictionary-alist-1.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5b5e748af74..3bf608c2cc0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -913,7 +913,9 @@ and added as a submenu of the \"Edit\" menu.")
     (ispell-aspell-add-aliases)
     ;; Add a default entry
     (let* ((english-dict (assoc "en" ispell-dictionary-alist))
-	   (default-dict (cons nil (cdr english-dict))))
+	   (default-dict
+	     (cons nil (or (cdr english-dict)
+			   (cdr (car ispell-dictionary-alist-1))))))
       (push default-dict ispell-dictionary-alist))
     (setq ispell-have-aspell-dictionaries t)))