[Emacs-diffs] /srv/bzr/emacs/trunk r99506: * textmodes/flyspell.el (flyspell-word): Obey the offset specified

[Chong Yidong]

------------------------------------------------------------
revno: 99506
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2010-02-16 09:23:44 -0500
message:
  * textmodes/flyspell.el (flyspell-word): Obey the offset specified
  by ispell-parse-output (Bug#5575).
modified:
  lisp/ChangeLog
  lisp/textmodes/flyspell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-16 06:51:15 +0000
+++ b/lisp/ChangeLog    2010-02-16 14:23:44 +0000
@@ -1,3 +1,8 @@
+2010-02-16  Chong Yidong  <address@hidden>
+
+       * textmodes/flyspell.el (flyspell-word): Obey the offset specified
+       by ispell-parse-output (Bug#5575).
+
 2010-02-16  Kenichi Handa  <address@hidden>
 
        * international/ja-dic-cnv.el (iso-2022-7bit-short): Delete it.

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2010-01-13 08:35:10 +0000
+++ b/lisp/textmodes/flyspell.el        2010-02-16 14:23:44 +0000
@@ -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