diff options
| author | Chong Yidong | 2008-08-26 23:00:31 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-08-26 23:00:31 +0000 |
| commit | 6797fabd2dc7edde08754d9be21048489dd378ee (patch) | |
| tree | aa88c3d4ed36b1a7754437ce78138fca3e5dc64a | |
| parent | 586dde8097d042f952d1051003890e6091494aa4 (diff) | |
| download | emacs-6797fabd2dc7edde08754d9be21048489dd378ee.tar.gz emacs-6797fabd2dc7edde08754d9be21048489dd378ee.zip | |
(flyspell-check-pre-word-p): Make sure flyspell-pre-point is valid to
avoid signalling an error in post-command-hook.
| -rw-r--r-- | lisp/textmodes/flyspell.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 6e78096328e..a67e48cec41 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -744,6 +744,9 @@ before the current command." | |||
| 744 | (eq flyspell-previous-command this-command))) | 744 | (eq flyspell-previous-command this-command))) |
| 745 | (or (= (current-column) 0) | 745 | (or (= (current-column) 0) |
| 746 | (= (current-column) flyspell-pre-column) | 746 | (= (current-column) flyspell-pre-column) |
| 747 | ;; If other post-command-hooks change the buffer, | ||
| 748 | ;; flyspell-pre-point can lie past eob (bug#468). | ||
| 749 | (null (char-after flyspell-pre-point)) | ||
| 747 | (eq (char-syntax (char-after flyspell-pre-point)) ?w))) | 750 | (eq (char-syntax (char-after flyspell-pre-point)) ?w))) |
| 748 | nil) | 751 | nil) |
| 749 | ((not (eq (current-buffer) flyspell-pre-buffer)) | 752 | ((not (eq (current-buffer) flyspell-pre-buffer)) |