[elpa] externals/mct 14059afa44 41/64: Make mct-region-mode advice completions window

[ELPA Syncer]

branch: externals/mct
commit 14059afa4445a32369a6e86ec31f9c8362a4324f
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make mct-region-mode advice completions window
    
    This is done by 'mct-minibuffer-mode' so we probably don't need it here,
    but it is better to have it just to be sure.
---
 mct.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mct.el b/mct.el
index 0b9df6d54d..3f91f9e12f 100644
--- a/mct.el
+++ b/mct.el
@@ -1262,6 +1262,7 @@ minibuffer)."
         (advice-add #'completion--done :around #'mct--region-completion-done)
         (add-hook 'completion-list-mode-hook 
#'mct--region-setup-completion-list)
         (add-hook 'completion-in-region-mode-hook 
#'mct--region-setup-completion-in-region)
+        (advice-add #'minibuffer-completion-help :after 
#'mct--fit-completions-window)
         (advice-add #'display-completion-list :around 
#'mct--display-completion-list-advice)
         (advice-add #'minibuffer-message :around #'mct--honor-inhibit-message)
         ;; TODO 2021-12-03: Set up a keymap after we are sure things work.
@@ -1271,6 +1272,7 @@ minibuffer)."
     (advice-remove #'completion--done #'mct--region-completion-done)
     (remove-hook 'completion-list-mode-hook 
#'mct--region-setup-completion-list)
     (remove-hook 'completion-in-region-mode-hook 
#'mct--region-setup-completion-in-region)
+    (advice-remove #'minibuffer-completion-help #'mct--fit-completions-window)
     (advice-remove #'display-completion-list 
#'mct--display-completion-list-advice)
     (advice-remove #'minibuffer-message #'mct--honor-inhibit-message)
     (let ((map completion-in-region-mode-map))