From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Agustin Martin Newsgroups: gmane.emacs.devel Subject: flyspell.el [1.90->1.91] flyspell-large-region-beg should be moved after good match Date: Fri, 16 Dec 2005 13:42:35 +0100 Message-ID: <20051216124235.GA3357@agmartin.aq.upm.es> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="PNTmBPCT7hxwcZjr" X-Trace: sea.gmane.org 1134760048 14801 80.91.229.2 (16 Dec 2005 19:07:28 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 16 Dec 2005 19:07:28 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Dec 16 20:07:26 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EnKuI-0001b3-Kw for ged-emacs-devel@m.gmane.org; Fri, 16 Dec 2005 20:06:18 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnKv0-0007F4-D4 for ged-emacs-devel@m.gmane.org; Fri, 16 Dec 2005 14:07:02 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EnFhZ-0003pD-99 for emacs-devel@gnu.org; Fri, 16 Dec 2005 08:32:49 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EnFGC-0005xO-5e for emacs-devel@gnu.org; Fri, 16 Dec 2005 08:04:34 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnF0A-00039J-1N for emacs-devel@gnu.org; Fri, 16 Dec 2005 07:47:58 -0500 Original-Received: from [138.100.4.49] (helo=edison.ccupm.upm.es) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EnF2Z-0002XV-VV for emacs-devel@gnu.org; Fri, 16 Dec 2005 07:50:28 -0500 Original-Received: from mala.aq.upm.es (Agmartin.aq.upm.es [138.100.41.131]) by edison.ccupm.upm.es (8.12.10/8.12.10) with ESMTP id jBGCl8Q2030625; Fri, 16 Dec 2005 13:47:08 +0100 Original-Received: by mala.aq.upm.es (Postfix, from userid 1000) id F13355022; Fri, 16 Dec 2005 13:42:35 +0100 (CET) Original-To: emacs-devel@gnu.org Content-Disposition: inline User-Agent: Mutt/1.5.11 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:47869 Archived-At: --PNTmBPCT7hxwcZjr Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Hi, Just noticed commit of flyspell.el 1.91 and a problem in it. In function flyspell-external-point-words flyspell-large-region-beg is not moved after successful match. That makes that for buffers like ispella ispella ispella only first match is found and tagged as misspelled since all further searches start from the same point. I am attaching a possible patch for that, -- Agustin --PNTmBPCT7hxwcZjr Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="flyspell.el.fly-ext-poi-words.diff" --- flyspell.el.orig 2005-12-16 12:10:52.000000000 +0100 +++ flyspell.el 2005-12-16 13:18:59.000000000 +0100 @@ -1334,7 +1334,8 @@ flyspell-large-region-end t) (save-excursion (goto-char (- (point) 1)) - (let* ((flyword-prev-l (flyspell-get-word nil)) + (let* ((match-point (+ (point) 1)) + (flyword-prev-l (flyspell-get-word nil)) (flyword-prev (car flyword-prev-l)) (size-match (= (length flyword-prev) (length word)))) (when (or @@ -1361,7 +1362,7 @@ (setq keep nil) (flyspell-word) ;; Next search will begin from end of last match - ))) + (setq flyspell-large-region-beg match-point)))) ;; Record if misspelling is not found and try new one (add-to-list 'words-not-found (concat " -> " word " - " --PNTmBPCT7hxwcZjr Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --PNTmBPCT7hxwcZjr--