diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2006-10-22 21:29:33 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2006-10-22 21:29:33 +0000 |
commit | 6b8aed24fe5456035382e6ecdea49e772936ce50 (patch) | |
tree | 92d2bf240453c47eef30333b3d6c5a6cb13d042d /lisp/textmodes/flyspell.el | |
parent | 224ca9c976305d1fa2d3d1c38dbd2e687488b167 (diff) | |
download | emacs-6b8aed24fe5456035382e6ecdea49e772936ce50.tar.gz |
* textmodes/flyspell.el (flyspell-word): Skip past all previous
whitespace when checking doublons.
(flyspell-check-region-doublons): Fix doublon regexp.
(flyspell-highlight-incorrect-region): Highlight doublons using
flyspell-duplicate face.
Diffstat (limited to 'lisp/textmodes/flyspell.el')
-rw-r--r-- | lisp/textmodes/flyspell.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index e7b95c9619d..e452716d83d 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -1011,11 +1011,14 @@ Mostly we check word delimiters." (not (memq (char-after (1- start)) '(?\} ?\\))))) flyspell-mark-duplications-flag (save-excursion - (goto-char (1- start)) - (let ((p (flyspell-word-search-backward - word - (- start (1+ (- end start)))))) - (and p (/= p (1- start)))))) + (goto-char start) + (let* ((bound + (- start + (- end start) + (- (skip-chars-backward " \t\n\f")))) + (p (when (>= bound (point-min)) + (flyspell-word-search-backward word bound)))) + (and p (/= p start))))) ;; yes, this is a doublon (flyspell-highlight-incorrect-region start end 'doublon) nil) @@ -1472,7 +1475,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'." (flyspell-word) ; Make sure current word is checked (backward-word 1) (while (and (< (point) end) - (re-search-forward "\\b\\([^ \n\t]+\\)[ \n\t]+\\1\\b" + (re-search-forward "\\(\\w+\\)\\s-+\\1\\>" end 'move)) (flyspell-word) (backward-word 1)) @@ -1708,7 +1711,9 @@ is itself incorrect, but suspiciously repeated." ;; now we can use a new overlay (setq flyspell-overlay (make-flyspell-overlay - beg end 'flyspell-incorrect 'highlight))))))) + beg end + (if (eq poss 'doublon) 'flyspell-duplicate 'flyspell-incorrect) + 'highlight))))))) ;;*---------------------------------------------------------------------*/ ;;* flyspell-highlight-duplicate-region ... */ |