branch: externals/mct
commit c77fb3f3a2e07f9033316f0f85faebd9f68431f6
Author: Daniel Mendler <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Move mct--clean-completions to mct--setup-completion-list
Avoid a global hook. mct--clean-completions can be called
in the completion-list-mode-hook instead.
---
mct.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/mct.el b/mct.el
index b5ce826..60050a6 100644
--- a/mct.el
+++ b/mct.el
@@ -1032,6 +1032,7 @@ region.")
(when (mct--active-p)
(setq-local completion-show-help nil
completions-format mct-completions-format)
+ (mct--clean-completions)
;; TODO use a uniform naming scheme here?
;; mct--setup-completions-* or mct--setup-*
(mct--setup-completions-styles) ;; TODO this name is confusing, because of
`completion-styles'
@@ -1053,7 +1054,6 @@ region.")
(if mct-mode
(progn
(add-hook 'completion-list-mode-hook #'mct--setup-completion-list)
- (add-hook 'completion-setup-hook #'mct--clean-completions)
(dolist (fn '(exit-minibuffer
choose-completion
minibuffer-force-complete
@@ -1066,7 +1066,6 @@ region.")
(advice-add #'minibuffer-message :around #'mct--honor-inhibit-message)
(advice-add #'minibuf-eldef-setup-minibuffer :around
#'mct--stealthily))
(remove-hook 'completion-list-mode-hook #'mct--setup-completion-list)
- (remove-hook 'completion-setup-hook #'mct--clean-completions)
(dolist (fn '(exit-minibuffer
choose-completion
minibuffer-force-complete
