[elpa] externals/corfu 98a0b8d958 5/7: corfu-infoframe: Add completion predicates

[ELPA Syncer]

branch: externals/corfu
commit 98a0b8d9586801c1d50fb99ceff7e73ed3076791
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    corfu-infoframe: Add completion predicates
---
 extensions/corfu-infoframe.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extensions/corfu-infoframe.el b/extensions/corfu-infoframe.el
index da897d952f..2466dfdc76 100644
--- a/extensions/corfu-infoframe.el
+++ b/extensions/corfu-infoframe.el
@@ -440,5 +440,11 @@ not be displayed until this command is called again, even 
if
     (advice-remove #'corfu--exhibit #'corfu-infoframe--exhibit)
     (advice-remove #'corfu--teardown #'corfu-infoframe--teardown))))
 
+;; Emacs 28: Do not show Corfu commands with M-X
+(dolist (sym '(corfu-infoframe-scroll-down corfu-infoframe-scroll-down
+               corfu-infoframe-documentation corfu-infoframe-location
+               corfu-infoframe-toggle))
+  (put sym 'completion-predicate #'ignore))
+
 (provide 'corfu-infoframe)
 ;;; corfu-infoframe.el ends here