* textmodes/flyspell.el (flyspell-word): Obey the offset specified

by ispell-parse-output (Bug#5575).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0dbc97c0df8e6ee745f4c6eb7f59e23d3e80954e..92ae206d10493b4df2eb4aa06ac91cd214cbb071 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-16  Chong Yidong  <cyd@stupidchicken.com>
+
+       * textmodes/flyspell.el (flyspell-word): Obey the offset specified
+       by ispell-parse-output (Bug#5575).
+
 2010-02-16  Kenichi Handa  <handa@m17n.org>
 
        * international/ja-dic-cnv.el (iso-2022-7bit-short): Delete it.

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 612f83123ba297e6b2c99afeef87716d8266a3a0..ee7a52a1093a8027f55749996d9c169430084a1c 100644 (file)
--- 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