[elpa] externals/mct d77832df44: Cover up and down arrow keys in the keymaps

[ELPA Syncer]

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

    Cover up and down arrow keys in the keymaps
    
    This is because on Emacs 30 the user option 'minibuffer-visible-completions'
    binds those keys to commands that break the MCT cycling. They also are
    not compatible with actions such as 'mct-choose-completion-no-exit'.
---
 mct.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mct.el b/mct.el
index d2c63a2895..d22f733ff7 100644
--- a/mct.el
+++ b/mct.el
@@ -932,8 +932,10 @@ This value means that it is overriden by the active 
region.")
     (define-key map [remap keyboard-quit] #'mct-keyboard-quit-dwim)
     (define-key map [remap next-line] #'mct-next-completion-or-mini)
     (define-key map (kbd "n") #'mct-next-completion-or-mini)
+    (define-key map (kbd "<down>") #'mct-next-completion-or-mini)
     (define-key map [remap previous-line] #'mct-previous-completion-or-mini)
     (define-key map (kbd "p") #'mct-previous-completion-or-mini)
+    (define-key map (kbd "<up>") #'mct-previous-completion-or-mini)
     (define-key map [remap backward-paragraph] #'mct-previous-completion-group)
     (define-key map [remap forward-paragraph] #'mct-next-completion-group)
     (define-key map (kbd "M-p") #'mct-previous-completion-group)
@@ -952,8 +954,9 @@ This value means that it is overriden by the active 
region.")
     (define-key map (kbd "C-j") #'exit-minibuffer)
     (define-key map [remap next-line] #'mct-switch-to-completions-top)
     (define-key map [remap next-line-or-history-element] 
#'mct-switch-to-completions-top)
+    (define-key map (kbd "<down>") #'mct-switch-to-completions-top)
     (define-key map [remap previous-line] #'mct-switch-to-completions-bottom)
-    (define-key map [remap previous-line-or-history-element] 
#'mct-switch-to-completions-bottom)
+    (define-key map (kbd "<up>") #'mct-switch-to-completions-bottom)
     (define-key map (kbd "M-e") #'mct-edit-completion)
     (define-key map (kbd "C-<return>") #'mct-complete-and-exit)
     (define-key map (kbd "C-l") #'mct-list-completions-toggle)