# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1266330224 18000
# Node ID 4d9e7dad66a00320943906cbdffe8e23d6f20553
# Parent  93e81200b4ddd87cf8602b2d1e090497a1f8d561
* textmodes/flyspell.el (flyspell-word): Obey the offset specified
by ispell-parse-output (Bug#5575).

diff -r 93e81200b4dd -r 4d9e7dad66a0 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Feb 16 16:41:11 2010 +0900
+++ b/lisp/ChangeLog	Tue Feb 16 09:23:44 2010 -0500
@@ -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 -r 93e81200b4dd -r 4d9e7dad66a0 lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Tue Feb 16 16:41:11 2010 +0900
+++ b/lisp/textmodes/flyspell.el	Tue Feb 16 09:23:44 2010 -0500
@@ -1155,10 +1155,15 @@
 			      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