[elpa] externals/mct 5ad44174c8 16/64: Introduce mct-region keymap for completions (WIP)

[ELPA Syncer]

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

    Introduce mct-region keymap for completions (WIP)
---
 mct.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/mct.el b/mct.el
index 7583456f2a..7c30e3ec7d 100644
--- a/mct.el
+++ b/mct.el
@@ -1219,6 +1219,28 @@ current completion session."
   (interactive nil mct-region-mode)
   (when (mct--region-p)
     (mct--completions-choose-completion)))
+
+(defvar mct-region-completion-list-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "M-v") #'scroll-down-command)
+    (define-key map [remap goto-line] #'mct-choose-completion-number)
+    ;; (define-key map [remap next-line] #'mct-next-completion-or-mini)
+    ;; (define-key map (kbd "n") #'mct-next-completion-or-mini)
+    ;; (define-key map [remap previous-line] #'mct-previous-completion-or-mini)
+    (define-key map (kbd "M-p") #'mct-previous-completion-group)
+    (define-key map (kbd "M-n") #'mct-next-completion-group)
+    ;; (define-key map (kbd "p") #'mct-previous-completion-or-mini)
+    (define-key map (kbd "<tab>") #'mct-choose-completion-in-region)
+    (define-key map (kbd "<return>") #'mct-choose-completion-in-region)
+    (define-key map [remap beginning-of-buffer] #'mct-beginning-of-buffer)
+    map)
+  "Derivative of `completion-list-mode-map'.")
+
+(defun mct--region-setup-completion-list-keymap ()
+  "Set up completion list keymap."
+  (use-local-map
+   (make-composed-keymap mct-region-completion-list-mode-map
+                         (current-local-map))))
 ;;;###autoload
 (define-minor-mode mct-region-mode
   "Set up interactivity over the default `completion-in-region'."