# HG changeset patch
# User Agustin martin <agustin.martin@hispalinux.es>
# Date 1277453951 -7200
# Node ID 4795588540bb13266f64d8c44921f6528d57d2ed
# Parent  b262a4f49bf388d3a31326485ce91b8e2dc6e1ca
Make sure `flyspell-word' checks word after (flyspell-check-previous-highlighted-word) run.

diff -r b262a4f49bf3 -r 4795588540bb lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Thu Jun 24 20:33:25 2010 -0400
+++ b/lisp/textmodes/flyspell.el	Fri Jun 25 10:19:11 2010 +0200
@@ -1817,7 +1817,9 @@
 			(throw 'exit t)))))))
 	(save-excursion
 	  (goto-char pos)
-	  (ispell-word))
+	  (ispell-word)
+	  (setq flyspell-word-cache-word nil) ;; Force flyspell-word re-check
+	  (flyspell-word))
       (error "No word to correct before point"))))
 
 ;;*---------------------------------------------------------------------*/