From 8e56b4645a44f32653296eba52b9e780f07a0bca Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Tue, 20 Jan 2009 11:34:39 +0000 Subject: [PATCH] (ispell-find-aspell-dictionaries): Use aspell default dict. --- lisp/ChangeLog | 5 +++++ lisp/textmodes/ispell.el | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 -- 2.39.2