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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0675327cf1b38870226ae0c401c00296090f3148..6bfeb61948276808bd9a3056600a0c4482d34679 100644 (file)
--- 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 49b6bee12581e501ef0990506c304d273c90efbc..21ae997bb52f30fb82241984973aee3032bd021a 100644 (file)
--- 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