mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* textmodes/flyspell.el (flyspell-word-search-backward): Set

Browse source 
inhibit-point-motion-hooks to avoid looping due to intangibile
	text.
This commit is contained in:
Chong Yidong 2006-10-18 04:13:46 +00:00
parent accd662d60
commit 15d8dc8b2b
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2006-10-18 Martin Rudalics <rudalics@gmx.at>
* textmodes/flyspell.el (flyspell-word-search-backward): Set
inhibit-point-motion-hooks to avoid looping due to intangibile
text.
2006-10-16 Kim F. Storm <storm@cua.dk>
* ido.el (ido-reread-directory): Work in `dir' mode too.

2
lisp/textmodes/flyspell.el
View file

@ -959,6 +959,7 @@ Mostly we check word delimiters."
(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 @@ Mostly we check word delimiters."
(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 '())))