[agustin.martin@hispalinux.es: Re: flyspell.el: patch for doublons checking from flyspell-large-region]

[Richard Stallman <rms@gnu.org>]

Would someone please install this?

------- Start of forwarded message -------
Date: Thu, 14 Sep 2006 11:55:04 +0200
From: Agustin Martin <agustin.martin@hispalinux.es>
To: Richard Stallman <rms@gnu.org>
Subject: Re: flyspell.el: patch for doublons checking from flyspell-large-region
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="Dxnq1zWXvFF0Q93v"
Content-Disposition: inline
In-Reply-To: <E1Fvw7q-0007wt-9A@fencepost.gnu.org>
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=failed 
	version=3.0.4


- --Dxnq1zWXvFF0Q93v
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline

On Thu, Jun 29, 2006 at 09:00:06AM -0400, Richard Stallman wrote:
> The change looks safe enough, so if it works for you and no one
> objects in a week, let's install it.

Seems that nobody complained in two months,

I am readding proposed changelog entry and patch,

- ---------------------------------------
flyspell.el:

(flyspell-check-region-doublons)
  - New function to check for adjacent duplicated words (doublons)
    in the given region.
(flyspell-large-region) Use it.
- ---------------------------------------

- -- 
Agustin

- --Dxnq1zWXvFF0Q93v
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename="flyspell.el.check-large-region-doublons.diff1"

- --- flyspell.el.orig	2006-06-28 12:01:43.000000000 +0200
+++ flyspell.el	2006-06-29 11:33:46.000000000 +0200
@@ -1455,6 +1455,21 @@
 	    (while (re-search-forward regexp nil t)
 	      (delete-region (match-beginning 0) (match-end 0)))))))))
 
+;;* ---------------------------------------------------------------
+;;*     flyspell-check-region-doublons
+;;* ---------------------------------------------------------------
+(defun flyspell-check-region-doublons (beg end)
+  "Check for adjacent duplicated words (doublons) in the given region."
+  (save-excursion
+    (goto-char beg)
+    (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" end 'move))
+      (flyspell-word)
+      (backward-word 1))
+    (flyspell-word)))
+
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-large-region ...                                        */
 ;;*---------------------------------------------------------------------*/
@@ -1499,7 +1514,8 @@
 	  (progn
 	    (flyspell-process-localwords buffer)
 	    (with-current-buffer curbuf
- -	      (flyspell-delete-region-overlays beg end))
+	      (flyspell-delete-region-overlays beg end)
+	      (flyspell-check-region-doublons beg end))
 	    (flyspell-external-point-words))
 	(error "Can't check region...")))))
 

- --Dxnq1zWXvFF0Q93v--
------- End of forwarded message -------