* flyspell.el (flyspell-word): Fix char offset for forged Ispell output.

Fixes: debbugs:7904

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2f1ee6d87fdf3d7def9ede246dce2b5229f83da..340ca33231f9b5337f310ecd95fda2f1b1fb75a5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-10-29  Chong Yidong  <cyd@gnu.org>
 
+       * textmodes/flyspell.el (flyspell-word): Fix char offset for
+       forged Ispell output (Bug#7904).
+
        * emacs-lisp/package.el (package-refresh-contents): Add autoload.
 
 2011-10-28  Stefan Monnier  <monnier@iro.umontreal.ca>

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 4a57d00d702bde5d5e14636c5650be02727cea25..a5099311307f6437af0974598d62f78bc7322d3a 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1121,7 +1121,7 @@ misspelling and skips redundant spell-checking step."
                       (setq poss (ispell-parse-output (car ispell-filter)))))
               ;; Else, this was a known misspelling to begin with, and
               ;; we should forge an ispell return value.
-              (setq poss (list word 0 '() '())))
+              (setq poss (list word 1 nil nil)))
            (let ((res (cond ((eq poss t)
                              ;; correct
                              (setq flyspell-word-cache-result t)