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 |