[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el
From: |
Agustin Martin Domingo |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el |
Date: |
Tue, 20 Jan 2009 11:34:44 +0000 |
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