[elpa] externals/vertico 304eaafd92: Move completion predicates of autoloaded commands to vertico.el

[ELPA Syncer]

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

    Move completion predicates of autoloaded commands to vertico.el
---
 extensions/vertico-directory.el | 5 -----
 extensions/vertico-quick.el     | 4 ----
 vertico.el                      | 6 +++++-
 3 files changed, 5 insertions(+), 10 deletions(-)

diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index a57867c96f..c821bb9806 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -116,10 +116,5 @@ Exit with current input if prefix ARG is given."
                      (eq ?/ (char-before (- (point) 2)))))
         (delete-region (overlay-start ov) (overlay-end ov))))))
 
-;; Emacs 28: Do not show Vertico commands in M-X
-(dolist (sym '(vertico-directory-up vertico-directory-enter
-               vertico-directory-delete-char vertico-directory-delete-word))
-  (put sym 'completion-predicate #'vertico--command-p))
-
 (provide 'vertico-directory)
 ;;; vertico-directory.el ends here
diff --git a/extensions/vertico-quick.el b/extensions/vertico-quick.el
index f0eb54f1a7..3ede9e2b5b 100644
--- a/extensions/vertico-quick.el
+++ b/extensions/vertico-quick.el
@@ -140,9 +140,5 @@ TWO is non-nil if two keys should be displayed."
   (when (vertico-quick-jump)
     (vertico-insert)))
 
-;; Emacs 28: Do not show Vertico commands in M-X
-(dolist (sym '(vertico-quick-jump vertico-quick-exit vertico-quick-insert))
-  (put sym 'completion-predicate #'vertico--command-p))
-
 (provide 'vertico-quick)
 ;;; vertico-quick.el ends here
diff --git a/vertico.el b/vertico.el
index 24f253632c..ff4d28c933 100644
--- a/vertico.el
+++ b/vertico.el
@@ -750,7 +750,11 @@ When the prefix argument is 0, the group order is reset."
 ;; Emacs 28: Do not show Vertico commands in M-X
 (dolist (sym '(vertico-next vertico-next-group vertico-previous 
vertico-previous-group
                vertico-scroll-down vertico-scroll-up vertico-exit 
vertico-insert
-               vertico-exit-input vertico-save vertico-first vertico-last))
+               vertico-exit-input vertico-save vertico-first vertico-last
+               vertico-repeat-previous ;; autoloads in vertico-repeat.el
+               vertico-quick-jump vertico-quick-exit vertico-quick-insert ;; 
autoloads in vertico-quick.el
+               vertico-directory-up vertico-directory-enter ;; autoloads in 
vertico-directory.el
+               vertico-directory-delete-char vertico-directory-delete-word))
   (put sym 'completion-predicate #'vertico--command-p))
 
 (provide 'vertico)