From: Agustín Martín Date: Tue, 20 Jan 2009 11:34:39 +0000 (+0000) Subject: (ispell-find-aspell-dictionaries): Use aspell default dict. X-Git-Tag: emacs-pretest-23.0.90~353 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e56b4645a44f32653296eba52b9e780f07a0bca;p=emacs.git (ispell-find-aspell-dictionaries): Use aspell default dict. --- 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 + + * textmodes/ispell.el (ispell-find-aspell-dictionaries): Use + aspell default dict. + 2009-01-20 Kenichi Handa * 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