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.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 1a657b0fdf9..4d0cc842351 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -982,8 +982,8 @@ Assumes that value contains no whitespace."
   ;; 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