[Emacs-diffs] /srv/bzr/emacs/trunk r100614: ispell.el (ispell-aspell-find-dictionary): Fix regexp for full xx_YY search.

[Agustin martin]

------------------------------------------------------------
revno: 100614
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Thu 2010-06-17 16:44:34 +0200
message:
  ispell.el (ispell-aspell-find-dictionary): Fix regexp for full xx_YY search.
  
  This is needed for languages like Portuguese where there are aspell dicts
  for pt_BR and pt_PT, not for plain pt. If we strip country part 
  `ispell-aspell-find-dictionary' does not find dicts for portuguese.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-17 11:02:42 +0000
+++ b/lisp/ChangeLog    2010-06-17 14:44:34 +0000
@@ -1,3 +1,8 @@
+2010-06-17  Agustín Martín  <address@hidden>
+
+       * ispell.el (ispell-aspell-find-dictionary): Fix regexp for
+       languages like Portuguese with pt_{BR,PT} and no plain pt.
+
 2010-06-17  Juanma Barranquero  <address@hidden>
 
        * emacs-lisp/package.el (package-menu-mode-map):

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2010-06-16 13:42:59 +0000
+++ b/lisp/textmodes/ispell.el  2010-06-17 14:44:34 +0000
@@ -982,8 +982,8 @@
   ;; This returns nil if the data file does not exist.
   ;; Can someone please explain the return value format when the
   ;; file does exist -- rms?
-  (let* ((lang ;; Strip out region, variant, etc.
-         (and (string-match "^[[:alpha:]]+" dict-name)
+  (let* ((lang ;; Strip out variant, etc.
+         (and (string-match "^[[:alpha:]_]+" dict-name)
               (match-string 0 dict-name)))
         (data-file
          (concat (or ispell-aspell-data-dir