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

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/08 04:11:10

Modified files:
        lisp/textmodes : ispell.el 

Log message:
        (ispell-check-minver): Declare.
        Use string-to-number rather than string-to-int.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.240&r2=1.241

Patches:
Index: ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -b -r1.240 -r1.241
--- ispell.el   5 Jan 2009 17:45:56 -0000       1.240
+++ ispell.el   8 Jan 2009 04:11:09 -0000       1.241
@@ -198,6 +198,8 @@
 
 ;;; Compatibility code for xemacs and (not too) older emacsen:
 
+(declare-function ispell-check-minver "ispell" (v1 v2))
+
 (if (fboundp 'version<=)
     (defalias 'ispell-check-minver 'version<=)
   (defun ispell-check-minver (minver version)
@@ -214,10 +216,10 @@
        (let (ver mver)
          (if (string-match "[0-9]+" version start-ver)
              (setq start-ver (match-end 0)
-                   ver (string-to-int (substring version (match-beginning 0) 
(match-end 0)))))
+                   ver (string-to-number (substring version (match-beginning 
0) (match-end 0)))))
          (if (string-match "[0-9]+" minver start-mver)
              (setq start-mver (match-end 0)
-                   mver (string-to-int (substring minver (match-beginning 0) 
(match-end 0)))))
+                   mver (string-to-number (substring minver (match-beginning 
0) (match-end 0)))))
 
          (if (or ver mver)
              (progn