1557 |
(interactive (list ispell-following-word ispell-quietly current-prefix-arg)) |
(interactive (list ispell-following-word ispell-quietly current-prefix-arg)) |
1558 |
(if continue |
(if continue |
1559 |
(ispell-continue) |
(ispell-continue) |
1560 |
|
(ispell-maybe-find-aspell-dictionaries) |
1561 |
(ispell-accept-buffer-local-defs) ; use the correct dictionary |
(ispell-accept-buffer-local-defs) ; use the correct dictionary |
1562 |
(let ((cursor-location (point)) ; retain cursor location |
(let ((cursor-location (point)) ; retain cursor location |
1563 |
(word (ispell-get-word following)) |
(word (ispell-get-word following)) |
2616 |
Return nil if spell session is quit, |
Return nil if spell session is quit, |
2617 |
otherwise returns shift offset amount for last line processed." |
otherwise returns shift offset amount for last line processed." |
2618 |
(interactive "r") ; Don't flag errors on read-only bufs. |
(interactive "r") ; Don't flag errors on read-only bufs. |
2619 |
|
(ispell-maybe-find-aspell-dictionaries) |
2620 |
(if (not recheckp) |
(if (not recheckp) |
2621 |
(ispell-accept-buffer-local-defs)) ; set up dictionary, local words, etc. |
(ispell-accept-buffer-local-defs)) ; set up dictionary, local words, etc. |
2622 |
(let ((skip-region-start (make-marker)) |
(let ((skip-region-start (make-marker)) |
3578 |
|
|
3579 |
(defun ispell-accept-buffer-local-defs () |
(defun ispell-accept-buffer-local-defs () |
3580 |
"Load all buffer-local information, restarting Ispell when necessary." |
"Load all buffer-local information, restarting Ispell when necessary." |
|
(ispell-maybe-find-aspell-dictionaries) |
|
3581 |
(ispell-buffer-local-dict) ; May kill ispell-process. |
(ispell-buffer-local-dict) ; May kill ispell-process. |
3582 |
(ispell-buffer-local-words) ; Will initialize ispell-process. |
(ispell-buffer-local-words) ; Will initialize ispell-process. |
3583 |
(ispell-buffer-local-parsing)) |
(ispell-buffer-local-parsing)) |