1 files changed, 7 insertions, 2 deletions

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 612f83123ba..ee7a52a1093 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1155,10 +1155,15 @@ than preceding) word when the cursor is not over a word."
                               nil)
                              (t
                               (setq flyspell-word-cache-result nil)
-                              ;; incorrect highlight the location
+                              ;; Highlight the location as incorrect,
+                              ;; including offset specified in POSS.
                               (if flyspell-highlight-flag
                                   (flyspell-highlight-incorrect-region
-                                   start end poss)
+                                   (if (and (consp poss)
+                                            (integerp (nth 1 poss)))
+                                       (+ start (nth 1 poss) -1)
+                                     start)
+                                   end poss)
                                 (flyspell-notify-misspell word poss))
                               nil))))
               ;; return to original location