[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."
- [nongnu] elpa/evil-escape d7f9940227 078/133: Fallback to evil-escape--escape-normal-state, (continued)
- [nongnu] elpa/evil-escape d7f9940227 078/133: Fallback to evil-escape--escape-normal-state, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 88b2cfbb38 128/133: Update url in commentary, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 7966f4b1be 084/133: Add cl-lib dependency and provide a initial value to reduce., ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape d53c8930e8 091/133: Improve evil-repeat-info support but not quite right, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape c80afe7335 099/133: Handle minibuffer in emacs-state as well, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 533e8a5649 095/133: Update README and bump to 3.10, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 5e7a4c873e 107/133: Add support for nil evil-escape-key-sequence, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 58ec625a94 104/133: custom handling for deft causes duplicate inserts, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape 73b30bfd91 116/133: Use string-match-p over string-match, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape ddb2348b40 073/133: Bump version to 3.02, ELPA Syncer, 2024/01/03
- [nongnu] elpa/evil-escape ce6982f7ce 125/133: Fix indentation,
ELPA Syncer <=
- [nongnu] elpa/evil-escape f71394b38a 132/133: Add support for treemacs (#4), ELPA Syncer, 2024/01/03