Mercurial > emacs
changeset 66666:344a573ab7a3
(flyspell-post-command-hook): Bind deactivate-mark to prevent deactivation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Nov 2005 21:33:22 +0000 |
| parents | 127ab86e8386 |
| children | 212206034148 |
| files | lisp/textmodes/flyspell.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el Thu Nov 03 21:32:08 2005 +0000 +++ b/lisp/textmodes/flyspell.el Thu Nov 03 21:33:22 2005 +0000 @@ -895,7 +895,9 @@ (defun flyspell-post-command-hook () "The `post-command-hook' used by flyspell to check a word in-the-fly." (interactive) - (let ((command this-command)) + (let ((command this-command) + ;; Prevent anything we do from affecting the mark. + deactivate-mark) (if (flyspell-check-pre-word-p) (save-excursion '(flyspell-debug-signal-pre-word-checked)