Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 73480:93f756e426b8
* textmodes/flyspell.el (flyspell-check-region-doublons): Fix last
fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 23 Oct 2006 13:59:44 +0000 |
| parents | 9b076439f58a |
| children | 497f9d6319e7 7eeafaaa9eab |
comparison
equal
deleted
inserted
replaced
| 73479:0c7cbc22f015 | 73480:93f756e426b8 |
|---|---|
| 1473 (save-excursion | 1473 (save-excursion |
| 1474 (goto-char beg) | 1474 (goto-char beg) |
| 1475 (flyspell-word) ; Make sure current word is checked | 1475 (flyspell-word) ; Make sure current word is checked |
| 1476 (backward-word 1) | 1476 (backward-word 1) |
| 1477 (while (and (< (point) end) | 1477 (while (and (< (point) end) |
| 1478 (re-search-forward "\\(\\w+\\)\\s-+\\1\\>" | 1478 (re-search-forward "\\<\\(\\w+\\)\\>[ \n\t\f]+\\1\\>" |
| 1479 end 'move)) | 1479 end 'move)) |
| 1480 (flyspell-word) | 1480 (flyspell-word) |
| 1481 (backward-word 1)) | 1481 (backward-word 1)) |
| 1482 (flyspell-word))) | 1482 (flyspell-word))) |
| 1483 | 1483 |