Mercurial > emacs

comparison lisp/textmodes/ispell.el @ 62402:a7e02ef1e3d6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace `string-to-int' by `string-to-number'.
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 16 May 2005 11:33:47 +0000
parents 12ab35f4126a
children be61de52f953 f042e7c0fe20
comparison
equal deleted inserted replaced
62401:4512c4db6912 62402:a7e02ef1e3d6
2294 (cur-count 0) ; contains number of misses + guesses 2294 (cur-count 0) ; contains number of misses + guesses
2295 count miss-list guess-list offset) 2295 count miss-list guess-list offset)
2296 (setq output (substring output (match-end 0))) ; skip over misspelling 2296 (setq output (substring output (match-end 0))) ; skip over misspelling
2297 (if (eq type ?#) 2297 (if (eq type ?#)
2298 (setq count 0) ; no misses for type # 2298 (setq count 0) ; no misses for type #
2299 (setq count (string-to-int output) ; get number of misses. 2299 (setq count (string-to-number output) ; get number of misses.
2300 output (substring output (1+ (string-match " " output 1))))) 2300 output (substring output (1+ (string-match " " output 1)))))
2301 (setq offset (string-to-int output)) 2301 (setq offset (string-to-number output))
2302 (if (eq type ?#) ; No miss or guess list. 2302 (if (eq type ?#) ; No miss or guess list.
2303 (setq output nil) 2303 (setq output nil)
2304 (setq output (substring output (1+ (string-match " " output 1))))) 2304 (setq output (substring output (1+ (string-match " " output 1)))))
2305 (while output 2305 (while output
2306 (let ((end (string-match ", \\|\\($\\)" output))) ; end of miss/guess. 2306 (let ((end (string-match ", \\|\\($\\)" output))) ; end of miss/guess.