[elpa] externals/mct 236e03fd5e 08/64: Install advice to silence messages in region

[ELPA Syncer]

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

    Install advice to silence messages in region
    
    Thanks to Daniel Mendler for suggesting as much:
    
<https://github.com/protesilaos/mct/commit/c79f8c86c9b6773994c53d15621a00c4b4752ac7#r61449589>.
---
 mct.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mct.el b/mct.el
index f9416e088b..27ae595b4d 100644
--- a/mct.el
+++ b/mct.el
@@ -1211,6 +1211,7 @@ Meant to be added to `after-change-functions'."
         (add-hook 'completion-list-mode-hook #'mct--setup-completion-list)
         (add-hook 'completion-in-region-mode-hook 
#'mct--region-setup-completion-in-region)
         (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.
         (let ((map completion-in-region-mode-map))
           (define-key map (kbd "C-n") #'mct-switch-to-completions-top)
@@ -1219,6 +1220,7 @@ Meant to be added to `after-change-functions'."
     (remove-hook 'completion-list-mode-hook #'mct--setup-completion-list)
     (remove-hook 'completion-in-region-mode-hook 
#'mct--region-setup-completion-in-region)
     (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))
       (define-key map (kbd "C-n") nil)
       (define-key map (kbd "C-p") nil))))