Mercurial > emacs

comparison lisp/textmodes/ispell.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 May 2005 04:22:05 +0000
parents 62afea0771d8 a7e02ef1e3d6
children 173dee4e2611
comparison
equal deleted inserted replaced
90181:0c828e2b0b6f 90182:f042e7c0fe20
2264 (cur-count 0) ; contains number of misses + guesses 2264 (cur-count 0) ; contains number of misses + guesses
2265 count miss-list guess-list offset) 2265 count miss-list guess-list offset)
2266 (setq output (substring output (match-end 0))) ; skip over misspelling 2266 (setq output (substring output (match-end 0))) ; skip over misspelling
2267 (if (eq type ?#) 2267 (if (eq type ?#)
2268 (setq count 0) ; no misses for type # 2268 (setq count 0) ; no misses for type #
2269 (setq count (string-to-int output) ; get number of misses. 2269 (setq count (string-to-number output) ; get number of misses.
2270 output (substring output (1+ (string-match " " output 1))))) 2270 output (substring output (1+ (string-match " " output 1)))))
2271 (setq offset (string-to-int output)) 2271 (setq offset (string-to-number output))
2272 (if (eq type ?#) ; No miss or guess list. 2272 (if (eq type ?#) ; No miss or guess list.
2273 (setq output nil) 2273 (setq output nil)
2274 (setq output (substring output (1+ (string-match " " output 1))))) 2274 (setq output (substring output (1+ (string-match " " output 1)))))
2275 (while output 2275 (while output
2276 (let ((end (string-match ", \\|\\($\\)" output))) ; end of miss/guess. 2276 (let ((end (string-match ", \\|\\($\\)" output))) ; end of miss/guess.