(ispell-find-aspell-dictionaries): Use aspell default dict.

2 files changed, 6 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0675327cf1b..6bfeb619482 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-20  Agustín Martín  <agustin.martin@hispalinux.es>
+
+        * textmodes/ispell.el (ispell-find-aspell-dictionaries): Use
+        aspell default dict.
+
 2009-01-20  Kenichi Handa  <handa@m17n.org>
 
         * descr-text.el (describe-char): Improve description of eight-bit
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 49b6bee1258..21ae997bb52 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -937,10 +937,7 @@ Internal use.")
         (setq found (nconc found (list dict)))))
     (setq ispell-aspell-dictionary-alist found)
     ;; Add a default entry
-    (let* ((english-dict (assoc "en" ispell-aspell-dictionary-alist))
-           (default-dict
-             (cons nil (or (cdr english-dict)
-                           '("[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil utf-8)))))
+    (let ((default-dict '(nil "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil utf-8)))
       (push default-dict ispell-aspell-dictionary-alist))))
 
 (defvar ispell-aspell-data-dir nil