[elpa] externals/vertico 99e6d90: vertico-grid-mode: Set completion predicate

[ELPA Syncer]

branch: externals/vertico
commit 99e6d90fcd929ad8b8f2065d0ad5e18f9d5f30f1
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-grid-mode: Set completion predicate
---
 extensions/vertico-grid.el  | 4 ++++
 extensions/vertico-quick.el | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/extensions/vertico-grid.el b/extensions/vertico-grid.el
index 0380ed2..f00e296 100644
--- a/extensions/vertico-grid.el
+++ b/extensions/vertico-grid.el
@@ -150,5 +150,9 @@ When scrolling beyond this limit, candidates may be 
truncated."
     (assq-delete-all 'right-char (assq 'remap vertico-map))
     (advice-remove #'vertico--arrange-candidates 
#'vertico-grid--arrange-candidates))))
 
+;; Emacs 28: Do not show Vertico commands in M-X
+(dolist (sym '(vertico-grid-left vertico-grid-right))
+  (put sym 'completion-predicate #'vertico--command-p))
+
 (provide 'vertico-grid)
 ;;; vertico-grid.el ends here
diff --git a/extensions/vertico-quick.el b/extensions/vertico-quick.el
index f876096..e2be4e5 100644
--- a/extensions/vertico-quick.el
+++ b/extensions/vertico-quick.el
@@ -133,7 +133,7 @@
     (vertico-insert)))
 
 ;; Emacs 28: Do not show Vertico commands in M-X
-(dolist (sym '(vertico-quick-jump  vertico-quick-exit vertico-quick-insert))
+(dolist (sym '(vertico-quick-jump vertico-quick-exit vertico-quick-insert))
   (put sym 'completion-predicate #'vertico--command-p))
 
 (provide 'vertico-quick)