# HG changeset patch
# User Agustin Martin <agustin.martin@hispalinux.es>
# Date 1232451279 0
# Node ID 96dc06a1e432cbd24b916fe6ac7bc14f42f14b5e
# Parent  534055932393b78ba7ce5b2131a7be3fff19e611
(ispell-find-aspell-dictionaries): Use aspell default dict.

diff -r 534055932393 -r 96dc06a1e432 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jan 20 05:27:31 2009 +0000
+++ b/lisp/ChangeLog	Tue Jan 20 11:34:39 2009 +0000
@@ -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 -r 534055932393 -r 96dc06a1e432 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Tue Jan 20 05:27:31 2009 +0000
+++ b/lisp/textmodes/ispell.el	Tue Jan 20 11:34:39 2009 +0000
@@ -937,10 +937,7 @@
 	(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