bump: :completion vertico

minad/consult@28f9ba8 -> minad/consult@69bbd21
minad/marginalia@a3a8edb -> minad/marginalia@1123544
minad/vertico@4a90297 -> minad/vertico@9de6709
oantolin/embark@be03ce9 -> oantolin/embark@1a7e6b5
iyefrat/all-the-icons-completion@24cdb3b -> iyefrat/all-the-icons-completion@d1d4b2f

update embark indicator to new format

modules/completion/vertico/autoload/vertico.el

@@ -218,3 +218,22 @@ If INITIAL is non-nil, use as initial input."
     (setq buffers nil)
     (with-current-buffer (switch-to-buffer (marker-buffer mark))
       (goto-char (marker-position mark)))))
+
+;;;###autoload
+(defun +vertico/embark-which-key-indicator ()
+  "An embark indicator that displays keymaps using which-key.
+The which-key help message will show the type and value of the
+current target followed by an ellipsis if there are further
+targets."
+  (lambda (&optional keymap targets prefix)
+    (if (null keymap)
+        (kill-buffer which-key--buffer)
+      (which-key--show-keymap
+       (if (eq (caar targets) 'embark-become)
+           "Become"
+         (format "Act on %s '%s'%s"
+                 (caar targets)
+                 (embark--truncate-target (cdar targets))
+                 (if (cdr targets) "…" "")))
+       (if prefix (lookup-key keymap prefix) keymap)
+       nil nil t))))