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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44592db06acfb2a02fe2a7478c4f4f25d7b2bc70..6b4cbf0e11c71263345b4a6164dedc1243b54ced 100644 (file)
--- 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 ff5cb5ec0c935c9d6060c5cf8ccc5bc5ce3059c6..7ccaba73d72ff8ad97ff7b879d5d36b6138f9ef7 100644 (file)
--- 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