[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el

[Agustin Martin Domingo]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Agustin Martin Domingo <agmartin>       09/01/20 11:34:43

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : ispell.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15135&r2=1.15136
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.244&r2=1.245

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15135
retrieving revision 1.15136
diff -u -b -r1.15135 -r1.15136
--- ChangeLog   20 Jan 2009 02:29:24 -0000      1.15135
+++ ChangeLog   20 Jan 2009 11:34:39 -0000      1.15136
@@ -1,3 +1,8 @@
+2009-01-20  Agustín Martín  <address@hidden>
+
+       * textmodes/ispell.el (ispell-find-aspell-dictionaries): Use
+       aspell default dict.
+
 2009-01-20  Kenichi Handa  <address@hidden>
 
        * descr-text.el (describe-char): Improve description of eight-bit

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.244
retrieving revision 1.245
diff -u -b -r1.244 -r1.245
--- textmodes/ispell.el 16 Jan 2009 14:04:38 -0000      1.244
+++ textmodes/ispell.el 20 Jan 2009 11:34:43 -0000      1.245
@@ -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