[elpa] externals/embark 71407f26d2 1/2: Show message when no default action exists (fix #567)

[ELPA Syncer]

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

    Show message when no default action exists (fix #567)
---
 embark.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/embark.el b/embark.el
index 236b7901b1..c2a32d792a 100644
--- a/embark.el
+++ b/embark.el
@@ -2291,8 +2291,11 @@ See `embark-act' for the meaning of the prefix ARG."
                        0
                      (mod (prefix-numeric-value arg) (length targets)))
                    targets)))
-             (default-action (embark--default-action (plist-get target :type)))
+             (type (plist-get target :type))
+             (default-action (embark--default-action type))
              (action (or (command-remapping default-action) default-action)))
+        (unless action
+          (user-error "No default action for %s targets" type))
         (when (and arg (minibufferp)) (setq embark--toggle-quit t))
         (embark--act action
                      (if (and (eq default-action embark--command)