Mercurial > emacs
changeset 73406:9b6f22920434
* textmodes/flyspell.el (flyspell-word-search-backward): Set
inhibit-point-motion-hooks to avoid looping due to intangibile
text.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 18 Oct 2006 04:13:46 +0000 |
| parents | 7009c1377caf |
| children | f2b75b711f12 |
| files | lisp/ChangeLog lisp/textmodes/flyspell.el |
| diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Oct 17 19:39:43 2006 +0000 +++ b/lisp/ChangeLog Wed Oct 18 04:13:46 2006 +0000 @@ -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.
--- 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 '())))