1356 |
(progn |
(progn |
1357 |
(setq flyspell-large-region-beg (point)) |
(setq flyspell-large-region-beg (point)) |
1358 |
(goto-char (- (point) 1)) |
(goto-char (- (point) 1)) |
1359 |
(setq keep (flyspell-word))) |
(setq keep |
1360 |
|
;; Detect when WORD can't be checked properly |
1361 |
|
;; because flyspell-get-word finds |
1362 |
|
;; just part of it, and treat that as ok. |
1363 |
|
(if (< (length (flyspell-get-word following)) |
1364 |
|
(length word)) |
1365 |
|
nil |
1366 |
|
(flyspell-word)))) |
1367 |
(error "Bug: misspelled word `%s' (output pos %d) not found in buffer" |
(error "Bug: misspelled word `%s' (output pos %d) not found in buffer" |
1368 |
word wordpos))))))) |
word wordpos))))))) |
1369 |
;; we are done |
;; we are done |