895 |
(defun flyspell-post-command-hook () |
(defun flyspell-post-command-hook () |
896 |
"The `post-command-hook' used by flyspell to check a word in-the-fly." |
"The `post-command-hook' used by flyspell to check a word in-the-fly." |
897 |
(interactive) |
(interactive) |
898 |
(let ((command this-command)) |
(let ((command this-command) |
899 |
|
;; Prevent anything we do from affecting the mark. |
900 |
|
deactivate-mark) |
901 |
(if (flyspell-check-pre-word-p) |
(if (flyspell-check-pre-word-p) |
902 |
(save-excursion |
(save-excursion |
903 |
'(flyspell-debug-signal-pre-word-checked) |
'(flyspell-debug-signal-pre-word-checked) |