fix(vertico): fix display with embark-act-all

This commit is contained in:
Quentin Barbe
2025-02-25 22:28:24 +01:00
committed by Henrik Lissner
parent 7beb83ca6f
commit bca4265e64

View File

@ -196,10 +196,14 @@ targets."
(which-key--show-keymap
(if (eq (plist-get (car targets) :type) 'embark-become)
"Become"
(format "Act on %s '%s'%s"
(if (> (or (plist-get (car targets) :multi) 0) 1)
(format "Act on %s '%ss'"
(plist-get (car targets) :multi)
(plist-get (car targets) :type))
(format "Act on %s '%s'%s"
(plist-get (car targets) :type)
(embark--truncate-target (plist-get (car targets) :target))
(if (cdr targets) "" "")))
(if (cdr targets) "" ""))))
(if prefix
(pcase (lookup-key keymap prefix 'accept-default)
((and (pred keymapp) km) km)