From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Richard M. Stallman" Newsgroups: gmane.emacs.devel Subject: Re: flyspell.el [1.90->1.91] flyspell-large-region-beg should be moved after good match Date: Fri, 16 Dec 2005 20:03:25 -0500 Message-ID: References: <20051216124235.GA3357@agmartin.aq.upm.es> Reply-To: rms@gnu.org NNTP-Posting-Host: main.gmane.org Content-Type: text/plain; charset=ISO-8859-15 X-Trace: sea.gmane.org 1134781644 13146 80.91.229.2 (17 Dec 2005 01:07:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sat, 17 Dec 2005 01:07:24 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Dec 17 02:07:22 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1EnQWY-0005uN-0z for ged-emacs-devel@m.gmane.org; Sat, 17 Dec 2005 02:06:11 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnQXF-0004l6-FD for ged-emacs-devel@m.gmane.org; Fri, 16 Dec 2005 20:06:53 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1EnQWB-0004gL-3f for emacs-devel@gnu.org; Fri, 16 Dec 2005 20:05:47 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1EnQWA-0004fy-6A for emacs-devel@gnu.org; Fri, 16 Dec 2005 20:05:46 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1EnQW9-0004fq-CH for emacs-devel@gnu.org; Fri, 16 Dec 2005 20:05:45 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1EnQYe-0005Id-Th for emacs-devel@gnu.org; Fri, 16 Dec 2005 20:08:21 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1EnQTt-0004TB-46; Fri, 16 Dec 2005 20:03:25 -0500 Original-To: Agustin Martin In-reply-to: <20051216124235.GA3357@agmartin.aq.upm.es> (message from Agustin Martin on Fri, 16 Dec 2005 13:42:35 +0100) 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:47916 Archived-At: I think this fix is a cleaner one. Does it work right? *** flyspell.el 04 Dec 2005 12:42:38 -0500 1.91 --- flyspell.el 16 Dec 2005 19:58:07 -0500 *************** *** 1311,1316 **** --- 1311,1318 ---- (ispell-otherchars (ispell-get-otherchars))) (with-current-buffer flyspell-external-ispell-buffer (goto-char (point-min)) + (with-current-buffer flyspell-large-region-buffer + (goto-char flyspell-large-region-beg)) ;; Loop over incorrect words. (while (re-search-forward "\\([^\n]+\\)\n" (point-max) t) ;; Bind WORD to the next one. *************** *** 1325,1331 **** (* 100 (/ (float (point)) (point-max))) word)) (with-current-buffer flyspell-large-region-buffer - (goto-char flyspell-large-region-beg) (let ((keep t)) ;; Iterate on string search until string is found as word, ;; not as substring --- 1327,1332 ----