awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Quentin Barbe
2025-02-25 22:28:24 +01:00
committed by Henrik Lissner
parent 7beb83ca6f
commit bca4265e64
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/completion/vertico/autoload/vertico.el
View File

@ -196,10 +196,14 @@ targets."
(which-key--show-keymap (which-key--show-keymap
(if (eq (plist-get (car targets) :type) 'embark-become) (if (eq (plist-get (car targets) :type) 'embark-become)
"Become" "Become"
(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" (format "Act on %s '%s'%s"
(plist-get (car targets) :type) (plist-get (car targets) :type)
(embark--truncate-target (plist-get (car targets) :target)) (embark--truncate-target (plist-get (car targets) :target))
(if (cdr targets) "…" ""))) (if (cdr targets) "…" ""))))
(if prefix (if prefix
(pcase (lookup-key keymap prefix 'accept-default) (pcase (lookup-key keymap prefix 'accept-default)
((and (pred keymapp) km) km) ((and (pred keymapp) km) km)