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

Fixes: debbugs:7904

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2f1ee6d87f..340ca33231f 100644
--- 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 4a57d00d702..a5099311307 100644
--- 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)