aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2009-01-08 04:11:09 +0000
committerGlenn Morris2009-01-08 04:11:09 +0000
commit049cb6855643cc7ff1e28670ebf26c5c24d6bbf6 (patch)
treeb23d11ffc8c715e386a56749afc7f1883d4ddb96
parentc5a345cb87d987d3362489f8d334af50e7de85ca (diff)
downloademacs-049cb6855643cc7ff1e28670ebf26c5c24d6bbf6.tar.gz
emacs-049cb6855643cc7ff1e28670ebf26c5c24d6bbf6.zip
(ispell-check-minver): Declare.
Use string-to-number rather than string-to-int.
-rw-r--r--lisp/textmodes/ispell.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 23a75369b38..ffc54c88176 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -198,6 +198,8 @@
198 198
199;;; Compatibility code for xemacs and (not too) older emacsen: 199;;; Compatibility code for xemacs and (not too) older emacsen:
200 200
201(declare-function ispell-check-minver "ispell" (v1 v2))
202
201(if (fboundp 'version<=) 203(if (fboundp 'version<=)
202 (defalias 'ispell-check-minver 'version<=) 204 (defalias 'ispell-check-minver 'version<=)
203 (defun ispell-check-minver (minver version) 205 (defun ispell-check-minver (minver version)
@@ -214,10 +216,10 @@ compatibility function in case version<= is not available."
214 (let (ver mver) 216 (let (ver mver)
215 (if (string-match "[0-9]+" version start-ver) 217 (if (string-match "[0-9]+" version start-ver)
216 (setq start-ver (match-end 0) 218 (setq start-ver (match-end 0)
217 ver (string-to-int (substring version (match-beginning 0) (match-end 0))))) 219 ver (string-to-number (substring version (match-beginning 0) (match-end 0)))))
218 (if (string-match "[0-9]+" minver start-mver) 220 (if (string-match "[0-9]+" minver start-mver)
219 (setq start-mver (match-end 0) 221 (setq start-mver (match-end 0)
220 mver (string-to-int (substring minver (match-beginning 0) (match-end 0))))) 222 mver (string-to-number (substring minver (match-beginning 0) (match-end 0)))))
221 223
222 (if (or ver mver) 224 (if (or ver mver)
223 (progn 225 (progn