From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.devel Subject: Re: [bug]org-mode with flyspell-mode freezes emacs Date: Tue, 17 Oct 2006 16:18:26 +0200 Message-ID: <4534E632.90407@gmx.at> References: <17716.23811.425109.929050@kahikatea.snap.net.nz> <4d08b83ef805bfb7828085d8e1f67daf@science.uva.nl> <9dc86f9fd2c6b2ad03093cb1e92e6aa6@science.uva.nl> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1161094703 7778 80.91.229.2 (17 Oct 2006 14:18:23 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 17 Oct 2006 14:18:23 +0000 (UTC) Cc: Nick Roberts , rms@gnu.org, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Oct 17 16:18:17 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GZpll-0000Li-K3 for ged-emacs-devel@m.gmane.org; Tue, 17 Oct 2006 16:18:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GZpll-0001xH-23 for ged-emacs-devel@m.gmane.org; Tue, 17 Oct 2006 10:18:13 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GZplU-0001tH-5R for emacs-devel@gnu.org; Tue, 17 Oct 2006 10:17:56 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GZplP-0001dw-FD for emacs-devel@gnu.org; Tue, 17 Oct 2006 10:17:55 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GZplP-0001dT-3Z for emacs-devel@gnu.org; Tue, 17 Oct 2006 10:17:51 -0400 Original-Received: from [213.165.64.20] (helo=mail.gmx.net) by monty-python.gnu.org with smtp (Exim 4.52) id 1GZpul-0000no-8R for emacs-devel@gnu.org; Tue, 17 Oct 2006 10:27:31 -0400 Original-Received: (qmail invoked by alias); 17 Oct 2006 14:17:49 -0000 Original-Received: from M3094P030.adsl.highway.telekom.at (EHLO [88.117.34.190]) [88.117.34.190] by mail.gmx.net (mp029) with SMTP; 17 Oct 2006 16:17:49 +0200 X-Authenticated: #14592706 User-Agent: Mozilla Thunderbird 1.0 (Windows/20041206) X-Accept-Language: de-DE, de, en-us, en Original-To: Carsten Dominik In-Reply-To: <9dc86f9fd2c6b2ad03093cb1e92e6aa6@science.uva.nl> X-Y-GMX-Trusted: 0 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:60818 Archived-At: Does it happen with the following? (defun flyspell-word-search-backward (word bound) (save-excursion (let ((r '()) p (oldp t)) (while (and (not r) (setq p (search-backward word bound t))) (let ((lw (flyspell-get-word '()))) (cond ((and (consp lw) (string-equal (car lw) word)) (setq r p)) ((equal p oldp) (setq r t)) (t (setq oldp p) (goto-char p))))) r)))