branch: externals/embark
commit 10ac6b7260c82e3a59a33ea93e7027692b228e5f
Author: Omar Antolín <[email protected]>
Commit: Omar Antolín <[email protected]>
Minor code cleanup
---
embark.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/embark.el b/embark.el
index 61499b9aa5..109384e4c7 100644
--- a/embark.el
+++ b/embark.el
@@ -1841,11 +1841,10 @@ that have such a keymap are links and images in `eww'
buffers,
attachment links in `gnus' article buffers, and the stash line
in a `vc-dir' buffer."
(interactive)
- (let ((keymaps (delq nil (list (get-char-property (point) 'keymap)
- (get-char-property (point) 'local-map)))))
- (unless keymaps
- (user-error "No key bindings found at point"))
- (embark-bindings-in-keymap (make-composed-keymap keymaps))))
+ (if-let ((keymaps (delq nil (list (get-char-property (point) 'keymap)
+ (get-char-property (point) 'local-map)))))
+ (embark-bindings-in-keymap (make-composed-keymap keymaps))
+ (user-error "No key bindings found at point")))
;;;###autoload
(defun embark-prefix-help-command ()
