From 206d0d9d9233af9038a9d97130dbe19383bb3c10 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 20 Jan 2020 22:23:40 -0500 Subject: [PATCH] Prevent flycheck-correct if region/insert mode is active --- modules/checkers/spell/config.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/modules/checkers/spell/config.el b/modules/checkers/spell/config.el index e0b3d7573..6c0fc604d 100644 --- a/modules/checkers/spell/config.el +++ b/modules/checkers/spell/config.el @@ -75,10 +75,15 @@ e.g. proselint and langtool." ;; used in their respective major modes. (add-hook 'flyspell-mode-hook #'+spell-init-flyspell-predicate-h) - (map! :map flyspell-mouse-map - "RET" #'flyspell-correct-at-point - [return] #'flyspell-correct-at-point - [mouse-1] #'flyspell-correct-at-point)) + (let ((flyspell-correct + (general-predicate-dispatch nil + (and (not (or mark-active (ignore-errors (evil-insert-state-p)))) + (memq 'flyspell-incorrect (face-at-point nil t))) + #'flyspell-correct-at-point))) + (map! :map flyspell-mouse-map + "RET" flyspell-correct + [return] flyspell-correct + [mouse-1] #'flyspell-correct-at-point))) (use-package! flyspell-correct