[Emacs-diffs] /srv/bzr/emacs/trunk r100640: Make sure `flyspell-word' checks word after (flyspell-check-previous-highlighted-word) run.

[Agustin martin]

------------------------------------------------------------
revno: 100640
committer: Agustin martin <address@hidden>
branch nick: trunk
timestamp: Fri 2010-06-25 10:19:11 +0200
message:
  Make sure `flyspell-word' checks word after 
(flyspell-check-previous-highlighted-word) run.
modified:
  lisp/textmodes/flyspell.el

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2010-03-23 02:37:11 +0000
+++ b/lisp/textmodes/flyspell.el        2010-06-25 08:19:11 +0000
@@ -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"))))
 
 ;;*---------------------------------------------------------------------*/