[Emacs-diffs] /srv/bzr/emacs/trunk r106228: * flyspell.el (flyspell-word): Fix char offset for forged Ispell output.

[Chong Yidong]

------------------------------------------------------------
revno: 106228
fixes bug(s): http://debbugs.gnu.org/7904
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-10-29 12:37:29 +0800
message:
  * flyspell.el (flyspell-word): Fix char offset for forged Ispell output.
modified:
  lisp/ChangeLog
  lisp/textmodes/flyspell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-29 03:42:12 +0000
+++ b/lisp/ChangeLog    2011-10-29 04:37:29 +0000
@@ -1,5 +1,8 @@
 2011-10-29  Chong Yidong  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2011-10-20 00:26:14 +0000
+++ b/lisp/textmodes/flyspell.el        2011-10-29 04:37:29 +0000
@@ -1121,7 +1121,7 @@
                       (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)