diff options
| -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 |