[Emacs-diffs] emacs/lisp ChangeLog textmodes/ispell.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/05/24 23:26:37

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : ispell.el 

Log message:
        * textmodes/ispell.el (ispell-check-version): Handle dashes in
        version numbers.  Suggested by address@hidden (Bug#3369).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15654&r2=1.15655
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.248&r2=1.249

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15654
retrieving revision 1.15655
diff -u -b -r1.15654 -r1.15655
--- ChangeLog   23 May 2009 23:31:49 -0000      1.15654
+++ ChangeLog   24 May 2009 23:26:33 -0000      1.15655
@@ -1,3 +1,8 @@
+2009-05-24  Chong Yidong  <address@hidden>
+
+       * textmodes/ispell.el (ispell-check-version): Handle dashes in
+       version numbers.  Suggested by address@hidden (Bug#3369).
+
 2009-05-23  Chong Yidong  <address@hidden>
 
        * info.el (Info-mode): Doc fix (Bug#3358).

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.248
retrieving revision 1.249
diff -u -b -r1.248 -r1.249
--- textmodes/ispell.el 13 Mar 2009 16:19:04 -0000      1.248
+++ textmodes/ispell.el 24 May 2009 23:26:37 -0000      1.249
@@ -812,11 +812,11 @@
        (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")