From 5d2ece3cd22aed2a89f51c315564605d52ebf382 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 29 Oct 2011 12:37:29 +0800 Subject: [PATCH] * flyspell.el (flyspell-word): Fix char offset for forged Ispell output. Fixes: debbugs:7904 --- lisp/ChangeLog | 3 +++ lisp/textmodes/flyspell.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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 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) -- 2.39.5