From 98cca7258d764449d0bf4bffb86d38611f0fe3e7 Mon Sep 17 00:00:00 2001 From: Aaron Jensen Date: Wed, 14 Mar 2018 08:09:50 -0700 Subject: [PATCH] Better support for 'transpose-chars' in Flyspell mode * lisp/textmodes/flyspell.el (flyspell-post-command-hook): Check word before previous point location after 'transpose-chars'. (Bug#30813) --- lisp/textmodes/flyspell.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index e4626696262..b5c841403a1 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -982,6 +982,11 @@ Mostly we check word delimiters." (let ((command this-command) ;; Prevent anything we do from affecting the mark. deactivate-mark) + (if (and (eq command 'transpose-chars) + flyspell-pre-point) + (save-excursion + (goto-char (- flyspell-pre-point 1)) + (flyspell-word))) (if (flyspell-check-pre-word-p) (save-excursion '(flyspell-debug-signal-pre-word-checked) -- 2.39.2