(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 5b5e748..3bf608c 100644 (file)
--- 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)))