Mercurial > emacs
changeset 101310:96dc06a1e432
(ispell-find-aspell-dictionaries): Use aspell default dict.
| author | Agustin Martin <agustin.martin@hispalinux.es> |
|---|---|
| date | Tue, 20 Jan 2009 11:34:39 +0000 |
| parents | 534055932393 |
| children | f920ab2e8179 |
| files | lisp/ChangeLog lisp/textmodes/ispell.el |
| diffstat | 2 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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