* textmodes/ispell.el (ispell-check-version): Handle dashes in

version numbers.  Suggested by sdl.web@gmail.com (Bug#3369).

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac9f1a83732..caaef5d3d82 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-05-24  Chong Yidong  <cyd@stupidchicken.com>
+
+        * textmodes/ispell.el (ispell-check-version): Handle dashes in
+        version numbers.  Suggested by sdl.web@gmail.com (Bug#3369).
+
 2009-05-23  Chong Yidong  <cyd@stupidchicken.com>
 
         * info.el (Info-mode): Doc fix (Bug#3358).
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 364e3c008df..c68d69b969e 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -812,11 +812,11 @@ Otherwise returns the library directory name, if that is defined."
         (goto-char (point-min))
         (or (setq ispell-really-aspell
                   (and (search-forward-regexp
-                        "(but really Aspell \\([0-9]+\\.[0-9\\.]+\\)?)" nil t)
+                        "(but really Aspell \\([0-9]+\\.[0-9\\.-]+\\)?)" nil t)
                        (match-string 1)))
             (setq ispell-really-hunspell
                   (and (search-forward-regexp
-                        "(but really Hunspell \\([0-9]+\\.[0-9\\.]+\\)?)" nil t)
+                        "(but really Hunspell \\([0-9]+\\.[0-9\\.-]+\\)?)" nil t)
                        (match-string 1)))))
 
       (let ((aspell-minver    "0.50")