[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d13a0dd: Better support for 'transpose-chars' in Fl
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master d13a0dd: Better support for 'transpose-chars' in Flyspell mode |
Date: |
Tue, 20 Mar 2018 11:10:41 -0400 (EDT) |
branch: master
commit d13a0dd273dc5f6221419267b0f5accc5f257802
Author: Aaron Jensen <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 e462669..b5c8414 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d13a0dd: Better support for 'transpose-chars' in Flyspell mode,
Eli Zaretskii <=