summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2022-11-18 12:29:09 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2022-11-18 12:29:09 +0100
commit98a0b8d9586801c1d50fb99ceff7e73ed3076791 (patch)
tree7a90b2e55e6d7cd464271a76517b6ab9a27d71a1
parent21723ad548ac89b2f75cda6b2a58df8131201aeb (diff)
corfu-infoframe: Add completion predicates
-rw-r--r--extensions/corfu-infoframe.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/extensions/corfu-infoframe.el b/extensions/corfu-infoframe.el
index da897d9..2466dfd 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