diff options
| author | Glenn Morris | 2009-01-08 04:11:09 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-01-08 04:11:09 +0000 |
| commit | 049cb6855643cc7ff1e28670ebf26c5c24d6bbf6 (patch) | |
| tree | b23d11ffc8c715e386a56749afc7f1883d4ddb96 | |
| parent | c5a345cb87d987d3362489f8d334af50e7de85ca (diff) | |
| download | emacs-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.el | 6 |
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 |