emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-escape ce6982f7ce 125/133: Fix indentation


From: ELPA Syncer
Subject: [nongnu] elpa/evil-escape ce6982f7ce 125/133: Fix indentation
Date: Wed, 3 Jan 2024 21:59:59 -0500 (EST)

branch: elpa/evil-escape
commit ce6982f7ce6c2bacec48a9ccfcb8470403b6da01
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Fix indentation
---
 evil-escape.el | 46 +++++++++++++++++++++++-----------------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/evil-escape.el b/evil-escape.el
index 10e0cf1c4f..b498564600 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -179,29 +179,29 @@ If any of these functions return non nil, evil escape 
will be inhibited."
 (defun evil-escape-pre-command-hook ()
   "evil-escape pre-command hook."
   (with-demoted-errors "evil-escape: Error %S"
-      (when (evil-escape-p)
-        (let* ((modified (buffer-modified-p))
-               (inserted (evil-escape--insert))
-               (fkey (elt evil-escape-key-sequence 0))
-               (skey (elt evil-escape-key-sequence 1))
-               (evt (read-event nil nil evil-escape-delay)))
-          (when inserted (evil-escape--delete))
-          (set-buffer-modified-p modified)
-          (cond
-           ((and (characterp evt)
-                 (or (and (equal (this-command-keys) (evil-escape--first-key))
-                          (char-equal evt skey))
-                     (and evil-escape-unordered-key-sequence
-                          (equal (this-command-keys) (evil-escape--second-key))
-                          (char-equal evt fkey))))
-            (evil-repeat-stop)
-            (let ((esc-fun (evil-escape-func)))
-              (when esc-fun
-                (setq this-command esc-fun)
-                (setq this-original-command esc-fun))))
-           ((null evt))
-           (t (setq unread-command-events
-                    (append unread-command-events (list evt)))))))))
+    (when (evil-escape-p)
+      (let* ((modified (buffer-modified-p))
+             (inserted (evil-escape--insert))
+             (fkey (elt evil-escape-key-sequence 0))
+             (skey (elt evil-escape-key-sequence 1))
+             (evt (read-event nil nil evil-escape-delay)))
+        (when inserted (evil-escape--delete))
+        (set-buffer-modified-p modified)
+        (cond
+         ((and (characterp evt)
+               (or (and (equal (this-command-keys) (evil-escape--first-key))
+                        (char-equal evt skey))
+                   (and evil-escape-unordered-key-sequence
+                        (equal (this-command-keys) (evil-escape--second-key))
+                        (char-equal evt fkey))))
+          (evil-repeat-stop)
+          (let ((esc-fun (evil-escape-func)))
+            (when esc-fun
+              (setq this-command esc-fun)
+              (setq this-original-command esc-fun))))
+         ((null evt))
+         (t (setq unread-command-events
+                  (append unread-command-events (list evt)))))))))
 
 (defun evil-escape--evil-repeat (fn &rest args)
   "Bind `evil-escape-inhibit' to t."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]