comparison lisp/textmodes/flyspell.el @ 69254:877f109009ca

(flyspell-external-point-words): Be case-sensitive.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 03 Mar 2006 11:49:22 +0000
parents 6c8eee5f9e6e
children 396834ac06ac
comparison
equal deleted inserted replaced
69253:b7275f2dd70a 69254:877f109009ca
1320 The list of incorrect words should be in `flyspell-external-ispell-buffer'. 1320 The list of incorrect words should be in `flyspell-external-ispell-buffer'.
1321 \(We finish by killing that buffer and setting the variable to nil.) 1321 \(We finish by killing that buffer and setting the variable to nil.)
1322 The buffer to mark them in is `flyspell-large-region-buffer'." 1322 The buffer to mark them in is `flyspell-large-region-buffer'."
1323 (let (words-not-found 1323 (let (words-not-found
1324 (ispell-otherchars (ispell-get-otherchars)) 1324 (ispell-otherchars (ispell-get-otherchars))
1325 (buffer-scan-pos flyspell-large-region-beg)) 1325 (buffer-scan-pos flyspell-large-region-beg)
1326 (case-fold-search nil))
1326 (with-current-buffer flyspell-external-ispell-buffer 1327 (with-current-buffer flyspell-external-ispell-buffer
1327 (goto-char (point-min)) 1328 (goto-char (point-min))
1328 ;; Loop over incorrect words, in the order they were reported, 1329 ;; Loop over incorrect words, in the order they were reported,
1329 ;; which is also the order they appear in the buffer being checked. 1330 ;; which is also the order they appear in the buffer being checked.
1330 (while (re-search-forward "\\([^\n]+\\)\n" nil t) 1331 (while (re-search-forward "\\([^\n]+\\)\n" nil t)