From a1e34e711defe77e4cc9ae5f01addc3880d30ac1 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Nov 2008 21:42:17 +0000 Subject: [PATCH] (ispell-dictionary-base-alist): Adjust to the case where the default dictionary is French, Spanish, younameit. --- lisp/ChangeLog | 3 +++ lisp/textmodes/ispell.el | 8 ++++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44592db06ac..6b4cbf0e11c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2008-11-18 Stefan Monnier + * textmodes/ispell.el (ispell-dictionary-base-alist): Adjust to the + case where the default dictionary is French, Spanish, younameit. + * window.el (window--frame-usable-p): Consider dedicated windows as usable. * files.el (confirm-nonexistent-file-or-buffer): diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ff5cb5ec0c9..7ccaba73d72 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -506,8 +506,12 @@ re-start Emacs." (defvar ispell-dictionary-base-alist - '((nil ; default (English.aff) - "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) + '((nil + ;; The default dictionary. It may be English.aff, or any other + ;; dictionary depending on locale and such things. We should probably + ;; ask ispell what dictionary it's using, but until we do that, let's + ;; just use an approximate regexp. + "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil iso-8859-1) ("american" ; Yankee English "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("brasileiro" ; Brazilian mode -- 2.39.2