[nongnu] elpa/evil-escape 7603a2f288 092/133: Fix broken interactive evil-escape function

[ELPA Syncer]

branch: elpa/evil-escape
commit 7603a2f288a161d1b5ddd2188a514fd63adb162d
Author: syl20bnr <sylvain.benner@gmail.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Fix broken interactive evil-escape function
---
 evil-escape.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index bf885cee30..232303d003 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -138,8 +138,12 @@ with a key sequence."
     (remove-hook 'pre-command-hook 'evil-escape-pre-command-hook)))
 
 (defun evil-escape ()
-  "Return the function to escape from everything... well almost everything."
+  "Escape from everything... well almost everything."
   (interactive)
+  (call-interactively (evil-escape-func)))
+
+(defun evil-escape-func ()
+  "Return the function to escape from everything."
   (pcase evil-state
     (`normal (evil-escape--escape-normal-state))
     (`motion (evil-escape--escape-motion-state))
@@ -174,7 +178,7 @@ with a key sequence."
                      (and evil-escape-unordered-key-sequence
                           (equal (this-command-keys) (evil-escape--second-key))
                           (char-equal evt fkey))))
-            (setq this-command (evil-escape)))
+            (setq this-command (evil-escape-func)))
            ((null evt))
            (t (setq unread-command-events
                     (append unread-command-events (list evt)))))))))