[nongnu] elpa/evil-escape 84e3166473 105/133: Add support for excluding evil states

[ELPA Syncer]

branch: elpa/evil-escape
commit 84e31664732f33fb6cdb20c983925a9701672a48
Author: Eivind Fonn <evfonn@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Add support for excluding evil states
---
 evil-escape.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/evil-escape.el b/evil-escape.el
index e5830163e1..9a6487b29d 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -112,7 +112,12 @@ key first."
   :group 'evil-escape)
 
 (defcustom evil-escape-excluded-major-modes nil
-  "Excluded major modes where escape sequences has no effect."
+  "Excluded major modes where escape sequences have no effect."
+  :type 'sexp
+  :group 'evil-escape)
+
+(defcustom evil-escape-excluded-states nil
+  "Excluded states where escape sequences have no effect."
   :type 'sexp
   :group 'evil-escape)
 
@@ -201,6 +206,7 @@ with a key sequence."
                (not (eq 'evil-force-normal-state
                         (lookup-key evil-normal-state-map [escape])))))
        (not (memq major-mode evil-escape-excluded-major-modes))
+       (not (memq evil-state evil-escape-excluded-states))
        (or (not evil-escape-enable-only-for-major-modes)
            (memq major-mode evil-escape-enable-only-for-major-modes))
        (or (equal (this-command-keys) (evil-escape--first-key))