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

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

[nongnu] elpa/with-simulated-input 33b40e59a1 018/134: Fix indentation


From: ELPA Syncer
Subject: [nongnu] elpa/with-simulated-input 33b40e59a1 018/134: Fix indentation
Date: Mon, 10 Jan 2022 23:00:00 -0500 (EST)

branch: elpa/with-simulated-input
commit 33b40e59a1d53754e0b5ad21ef7e90c8b997f404
Author: Ryan C. Thompson <rct@thompsonclan.org>
Commit: Ryan C. Thompson <rct@thompsonclan.org>

    Fix indentation
---
 with-simulated-input.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/with-simulated-input.el b/with-simulated-input.el
index c72d1112da..decd5f94ef 100644
--- a/with-simulated-input.el
+++ b/with-simulated-input.el
@@ -53,16 +53,16 @@ This function checks every keymap in `obarray' for a 
binding for
 KEY, and returns t if it finds and and nil otherwise. Note that
 this checks ALL keymaps, not just currently active ones."
   (catch 'bound
-  (mapatoms
-   (lambda (sym)
-     (let ((keymap
-            (when (boundp sym)
-              (symbol-value sym))))
-       (when (keymapp keymap)
-         (let ((binding (lookup-key keymap (kbd key))))
-           (when binding
-             (throw 'bound t)))))))
-  (throw 'bound nil)))
+    (mapatoms
+     (lambda (sym)
+       (let ((keymap
+              (when (boundp sym)
+                (symbol-value sym))))
+         (when (keymapp keymap)
+           (let ((binding (lookup-key keymap (kbd key))))
+             (when binding
+               (throw 'bound t)))))))
+    (throw 'bound nil)))
 
 (cl-defun wsi-get-unbound-key
     (&optional (modifiers '("C-M-A-s-H-" "C-M-A-s-" "C-M-A-H-"))



reply via email to

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