diff options
| author | Richard M. Stallman | 2005-11-03 21:33:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-11-03 21:33:22 +0000 |
| commit | 3c8404e66f25b531885c0b5f443f884c30b9bc4e (patch) | |
| tree | 45be5f689bdd04f50e3e6025c64891e593b89109 | |
| parent | 33a992c298a79d67a1c83116ac1e66c909d7d909 (diff) | |
| download | emacs-3c8404e66f25b531885c0b5f443f884c30b9bc4e.tar.gz emacs-3c8404e66f25b531885c0b5f443f884c30b9bc4e.zip | |
(flyspell-post-command-hook): Bind deactivate-mark to prevent deactivation.
| -rw-r--r-- | lisp/textmodes/flyspell.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index f65ffd0ba5c..0f0394ad4ea 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -895,7 +895,9 @@ Mostly we check word delimiters." | |||
| 895 | (defun flyspell-post-command-hook () | 895 | (defun flyspell-post-command-hook () |
| 896 | "The `post-command-hook' used by flyspell to check a word in-the-fly." | 896 | "The `post-command-hook' used by flyspell to check a word in-the-fly." |
| 897 | (interactive) | 897 | (interactive) |
| 898 | (let ((command this-command)) | 898 | (let ((command this-command) |
| 899 | ;; Prevent anything we do from affecting the mark. | ||
| 900 | deactivate-mark) | ||
| 899 | (if (flyspell-check-pre-word-p) | 901 | (if (flyspell-check-pre-word-p) |
| 900 | (save-excursion | 902 | (save-excursion |
| 901 | '(flyspell-debug-signal-pre-word-checked) | 903 | '(flyspell-debug-signal-pre-word-checked) |