changeset 109046:4795588540bb

Make sure `flyspell-word' checks word after (flyspell-check-previous-highlighted-word) run.
author Agustin martin <agustin.martin@hispalinux.es>
date Fri, 25 Jun 2010 10:19:11 +0200
parents b262a4f49bf3
children 089bea4d9fb3
files lisp/textmodes/flyspell.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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"))))
 
 ;;*---------------------------------------------------------------------*/