diff options
| author | Chong Yidong | 2006-10-18 04:13:46 +0000 |
|---|---|---|
| committer | Chong Yidong | 2006-10-18 04:13:46 +0000 |
| commit | 15d8dc8b2bc4146d0fa667e26d2d848955428817 (patch) | |
| tree | e6c5309f70bb236226379068a81befad13b97bc6 /lisp/textmodes | |
| parent | accd662d609388cac0f07c0cc4b350667676c2e6 (diff) | |
| download | emacs-15d8dc8b2bc4146d0fa667e26d2d848955428817.tar.gz emacs-15d8dc8b2bc4146d0fa667e26d2d848955428817.zip | |
* textmodes/flyspell.el (flyspell-word-search-backward): Set
inhibit-point-motion-hooks to avoid looping due to intangibile
text.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index ebee4691e8c..e7b95c9619d 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -959,6 +959,7 @@ Mostly we check word delimiters." | |||
| 959 | (defun flyspell-word-search-backward (word bound) | 959 | (defun flyspell-word-search-backward (word bound) |
| 960 | (save-excursion | 960 | (save-excursion |
| 961 | (let ((r '()) | 961 | (let ((r '()) |
| 962 | (inhibit-point-motion-hooks t) | ||
| 962 | p) | 963 | p) |
| 963 | (while (and (not r) (setq p (search-backward word bound t))) | 964 | (while (and (not r) (setq p (search-backward word bound t))) |
| 964 | (let ((lw (flyspell-get-word '()))) | 965 | (let ((lw (flyspell-get-word '()))) |
| @@ -973,6 +974,7 @@ Mostly we check word delimiters." | |||
| 973 | (defun flyspell-word-search-forward (word bound) | 974 | (defun flyspell-word-search-forward (word bound) |
| 974 | (save-excursion | 975 | (save-excursion |
| 975 | (let ((r '()) | 976 | (let ((r '()) |
| 977 | (inhibit-point-motion-hooks t) | ||
| 976 | p) | 978 | p) |
| 977 | (while (and (not r) (setq p (search-forward word bound t))) | 979 | (while (and (not r) (setq p (search-forward word bound t))) |
| 978 | (let ((lw (flyspell-get-word '()))) | 980 | (let ((lw (flyspell-get-word '()))) |