[elpa] externals/mct c77fb3f 5/8: Move mct--clean-completions to mct--setup-completion-list

[ELPA Syncer]

branch: externals/mct
commit c77fb3f3a2e07f9033316f0f85faebd9f68431f6
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    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