[elpa] externals/mct 28d7c54f51 44/64: Add debug print to monitor completion-in-region-mode

[ELPA Syncer]

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

    Add debug print to monitor completion-in-region-mode
---
 mct.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mct.el b/mct.el
index 9f09ca3d70..f73abce52a 100644
--- a/mct.el
+++ b/mct.el
@@ -1238,11 +1238,16 @@ minibuffer)."
    (make-composed-keymap mct-region-completion-list-mode-map
                          (current-local-map))))
 
+(defun debug-cir ()
+  (message (if completion-in-region-mode "CIR START" "CIR END")))
+
 (defun mct--region-setup-completion-list ()
   "Set up the completion-list for Mct."
   (when (mct--region-p)
     (setq-local completion-show-help nil
                 truncate-lines t)
+    ;; TODO: Remove this debugging later
+    (add-hook 'completion-in-region-mode-hook #'debug-cir)
     (mct--setup-clean-completions)
     (mct--setup-appearance)
     (mct--region-setup-completion-list-keymap)