[nongnu] elpa/evil-escape efe9a3a3d1 071/133: Simplify even more evil-escape-pre-command-hook

[ELPA Syncer]

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

    Simplify even more evil-escape-pre-command-hook
---
 evil-escape.el | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index ed5fe13a4c..47408d82ba 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -102,17 +102,14 @@ with a key sequence."
     (let ((inserted (evil-escape--insert))
           (skey (elt evil-escape-key-sequence 1))
           (evt (read-event nil nil evil-escape-delay)))
+      (when inserted (evil-escape--delete))
       (cond
-       ((null evt)
-        (when inserted (evil-escape--delete)))
        ((and (integerp evt) (char-equal evt skey))
-        (when inserted (evil-escape--delete))
         (evil-escape--escape)
         (setq this-command 'ignore))
-       (t
-        (when inserted (evil-escape--delete))
-        (setq unread-command-events
-              (append unread-command-events (list evt))))))))
+       ((null evt))
+       (t (setq unread-command-events
+                (append unread-command-events (list evt))))))))
 
 (defun evil-escape-p ()
   "Return non-nil if evil-escape should run."