diff options
| author | Chong Yidong | 2011-10-29 12:37:29 +0800 |
|---|---|---|
| committer | Chong Yidong | 2011-10-29 12:37:29 +0800 |
| commit | 5d2ece3cd22aed2a89f51c315564605d52ebf382 (patch) | |
| tree | be7ce169226bf94236bcd68fe011546ccf8a4466 /lisp/textmodes | |
| parent | 38bb2ca88d2370f5991afe250e4976e7b50aab0d (diff) | |
| download | emacs-5d2ece3cd22aed2a89f51c315564605d52ebf382.tar.gz emacs-5d2ece3cd22aed2a89f51c315564605d52ebf382.zip | |
* flyspell.el (flyspell-word): Fix char offset for forged Ispell output.
Fixes: debbugs:7904
Diffstat (limited to 'lisp/textmodes')
| -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." | |||
| 1121 | (setq poss (ispell-parse-output (car ispell-filter))))) | 1121 | (setq poss (ispell-parse-output (car ispell-filter))))) |
| 1122 | ;; Else, this was a known misspelling to begin with, and | 1122 | ;; Else, this was a known misspelling to begin with, and |
| 1123 | ;; we should forge an ispell return value. | 1123 | ;; we should forge an ispell return value. |
| 1124 | (setq poss (list word 0 '() '()))) | 1124 | (setq poss (list word 1 nil nil))) |
| 1125 | (let ((res (cond ((eq poss t) | 1125 | (let ((res (cond ((eq poss t) |
| 1126 | ;; correct | 1126 | ;; correct |
| 1127 | (setq flyspell-word-cache-result t) | 1127 | (setq flyspell-word-cache-result t) |