diff options
| author | Chong Yidong <cyd@gnu.org> | 2011-10-29 12:37:29 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2011-10-29 12:37:29 +0800 |
| commit | 5d2ece3cd22aed2a89f51c315564605d52ebf382 (patch) | |
| tree | be7ce169226bf94236bcd68fe011546ccf8a4466 /lisp/textmodes/flyspell.el | |
| parent | 38bb2ca88d2370f5991afe250e4976e7b50aab0d (diff) | |
| download | emacs-5d2ece3cd22aed2a89f51c315564605d52ebf382.tar.gz | |
* flyspell.el (flyspell-word): Fix char offset for forged Ispell output.
Fixes: debbugs:7904
Diffstat (limited to 'lisp/textmodes/flyspell.el')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |