[elpa] externals/embark 10ac6b7260 2/2: Minor code cleanup

[ELPA Syncer]

branch: externals/embark
commit 10ac6b7260c82e3a59a33ea93e7027692b228e5f
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    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 ()