diff lisp/textmodes/flyspell.el @ 73406:9b6f22920434

* textmodes/flyspell.el (flyspell-word-search-backward): Set inhibit-point-motion-hooks to avoid looping due to intangibile text.

--- a/lisp/textmodes/flyspell.el	Tue Oct 17 19:39:43 2006 +0000
+++ b/lisp/textmodes/flyspell.el	Wed Oct 18 04:13:46 2006 +0000
@@ -959,6 +959,7 @@
 (defun flyspell-word-search-backward (word bound)
   (save-excursion
     (let ((r '())
+	  (inhibit-point-motion-hooks t)
 	  p)
       (while (and (not r) (setq p (search-backward word bound t)))
 	(let ((lw (flyspell-get-word '())))
@@ -973,6 +974,7 @@
 (defun flyspell-word-search-forward (word bound)
   (save-excursion
     (let ((r '())
+	  (inhibit-point-motion-hooks t)
 	  p)
       (while (and (not r) (setq p (search-forward word bound t)))
 	(let ((lw (flyspell-get-word '())))