Mercurial > emacs
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) |