[nongnu] elpa/evil-escape f62630c7d6 070/133: Simplify evil-escape-pre-command-hook

[ELPA Syncer]

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

    Simplify evil-escape-pre-command-hook
---
 evil-escape.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index 7ae65baacd..ed5fe13a4c 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -99,20 +99,20 @@ with a key sequence."
 (defun evil-escape-pre-command-hook ()
   "evil-escape pre-command hook."
   (when (evil-escape-p)
-    (let ((inserted (evil-escape--insert)))
-      (let ((skey (elt evil-escape-key-sequence 1))
-            (evt (read-event nil nil evil-escape-delay)))
-        (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)))))))))
+    (let ((inserted (evil-escape--insert))
+          (skey (elt evil-escape-key-sequence 1))
+          (evt (read-event nil nil evil-escape-delay)))
+      (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))))))))
 
 (defun evil-escape-p ()
   "Return non-nil if evil-escape should run."