[nongnu] elpa/evil-escape 3d3c941db8 082/133: add evil escape suppressed predicates.

[ELPA Syncer]

branch: elpa/evil-escape
commit 3d3c941db876f7f2c026f574f50e4baff58ce890
Author: Christopher McCloud <mccloud.christopher@gmail.com>
Commit: Christopher McCloud <mccloud.christopher@gmail.com>

    add evil escape suppressed predicates.
    
    Adds additional condition into evil-escape-p to allow more fine grained
    control over when to disable evil-escape.
---
 evil-escape.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/evil-escape.el b/evil-escape.el
index cc5ea9cb6c..37b759ff2f 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -109,6 +109,12 @@ key first."
   :type 'sexp
   :group 'evil-escape)
 
+(defcustom evil-escape-suppressed-predicates nil
+  "List of zero argument predicate functions. If any of these functions
+return nil, evil escape will be suppressed."
+  :type 'sexp
+  :group 'evil-escape)
+
 ;;;###autoload
 (define-minor-mode evil-escape-mode
   "Buffer-local minor mode to escape insert state and everythin else
@@ -171,7 +177,8 @@ with a key sequence."
            (memq major-mode evil-escape-enable-only-for-major-modes))
        (or (equal (this-command-keys) (evil-escape--first-key))
            (and evil-escape-unordered-key-sequence
-                (equal (this-command-keys) (evil-escape--second-key))))))
+                (equal (this-command-keys) (evil-escape--second-key))))
+       (every #'funcall evil-escape-suppressed-predicates)))
 
 (defun evil-escape--escape-normal-state ()
   "Escape from normal state."