(ispell-dictionary-base-alist): Adjust to the

case where the default dictionary is French, Spanish, younameit.

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  <monnier@iro.umontreal.ca>
 
+        * 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