aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2008-08-26 23:00:31 +0000
committerChong Yidong2008-08-26 23:00:31 +0000
commit6797fabd2dc7edde08754d9be21048489dd378ee (patch)
treeaa88c3d4ed36b1a7754437ce78138fca3e5dc64a
parent586dde8097d042f952d1051003890e6091494aa4 (diff)
downloademacs-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.el3
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))