[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mct 54c3ea65c5 2/2: keymaps: Use remappings where possi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/mct 54c3ea65c5 2/2: keymaps: Use remappings where possible |
Date: |
Tue, 28 Dec 2021 09:57:33 -0500 (EST) |
branch: externals/mct
commit 54c3ea65c5bfaabba561c8dfff5e438f41c166b9
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Protesilaos Stavrou <info@protesilaos.com>
keymaps: Use remappings where possible
Remappings help users who use different basic keybindings. I am using
remappings
in Vertico and made good experiences so far. Also prefer TAB/RET over the
low
level key symbols <return>/<tab> etc. This should work better in terminals.
Emacs internally translates <tab> to TAB.
---
mct.el | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/mct.el b/mct.el
index 1049ce198a..139088f3a1 100644
--- a/mct.el
+++ b/mct.el
@@ -976,20 +976,19 @@ region.")
(defvar mct-completion-list-mode-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "M-v") #'scroll-down-command)
(define-key map [remap keyboard-quit] #'mct-keyboard-quit-dwim)
(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 [remap backward-paragraph] #'mct-previous-completion-group)
+ (define-key map [remap forward-paragraph] #'mct-next-completion-group)
(define-key map (kbd "e") #'mct-focus-minibuffer)
(define-key map (kbd "M-e") #'mct-edit-completion)
- (define-key map (kbd "<tab>") #'mct-choose-completion-no-exit)
- (define-key map (kbd "<return>") #'mct-choose-completion-exit)
- (define-key map (kbd "<M-return>") #'mct-choose-completion-dwim)
+ (define-key map (kbd "TAB") #'mct-choose-completion-no-exit)
+ (define-key map (kbd "RET") #'mct-choose-completion-exit)
+ (define-key map (kbd "M-RET") #'mct-choose-completion-dwim)
(define-key map [remap beginning-of-buffer] #'mct-beginning-of-buffer)
map)
"Derivative of `completion-list-mode-map'.")
@@ -998,19 +997,19 @@ region.")
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-j") #'exit-minibuffer)
(define-key map [remap goto-line] #'mct-choose-completion-number)
+ (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 [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 "M-e") #'mct-edit-completion)
- (define-key map (kbd "<C-return>") #'mct-complete-and-exit)
- (define-key map (kbd "C-n") #'mct-switch-to-completions-top)
- (define-key map (kbd "<down>") #'mct-switch-to-completions-top)
- (define-key map (kbd "C-p") #'mct-switch-to-completions-bottom)
- (define-key map (kbd "<up>") #'mct-switch-to-completions-bottom)
+ (define-key map (kbd "C-RET") #'mct-complete-and-exit)
(define-key map (kbd "C-l") #'mct-list-completions-toggle)
map)
"Derivative of `minibuffer-local-completion-map'.")
(defvar mct-minibuffer-local-filename-completion-map
(let ((map (make-sparse-keymap)))
- (define-key map (kbd "<backspace>") #'mct-backward-updir)
+ (define-key map (kbd "DEL") #'mct-backward-updir)
map)
"Derivative of `minibuffer-local-filename-completion-map'.")