(ispell-find-aspell-dictionaries): If no English aspell dictionary is

installed, use the first entry of ispell-dictionary-alist-1.

1 files changed, 3 insertions, 1 deletions

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