branch: elpa/with-simulated-input
commit 33b40e59a1d53754e0b5ad21ef7e90c8b997f404
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
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-"))
