From af96708e6ba91c2000b151b539ac28b7b7527bc8 Mon Sep 17 00:00:00 2001 From: jixiuf Date: Thu, 1 Aug 2019 13:44:24 +0800 Subject: order keybindings,no code change --- vterm.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/vterm.el b/vterm.el index 70a4a8b..e91b3a9 100644 --- a/vterm.el +++ b/vterm.el @@ -242,6 +242,20 @@ If nil, never delay") :sentinel (when vterm-exit-functions #'vterm--sentinel)))) (vterm--set-pty-name vterm--term (process-tty-name vterm--process))) + +;; Function keys and most of C- and M- bindings +(mapc (lambda (key) + (define-key vterm-mode-map (kbd key) #'vterm--self-insert)) + (append (cl-loop for number from 1 to 12 + for key = (format "" number) + unless (member key vterm-keymap-exceptions) + collect key) + (cl-loop for prefix in '("C-" "M-") + append (cl-loop for char from ?a to ?z + for key = (format "%s%c" prefix char) + unless (member key vterm-keymap-exceptions) + collect key)))) + ;; Keybindings (define-key vterm-mode-map [tab] #'vterm--self-insert) (define-key vterm-mode-map [backtab] #'vterm--self-insert) @@ -263,20 +277,6 @@ If nil, never delay") (define-key vterm-mode-map (kbd "C-SPC") #'vterm--self-insert) (define-key vterm-mode-map (kbd "C-/") #'vterm-undo) (define-key vterm-mode-map (kbd "C-c C-t") #'vterm-copy-mode) - -;; Function keys and most of C- and M- bindings -(mapc (lambda (key) - (define-key vterm-mode-map (kbd key) #'vterm--self-insert)) - (append (cl-loop for number from 1 to 12 - for key = (format "" number) - unless (member key vterm-keymap-exceptions) - collect key) - (cl-loop for prefix in '("C-" "M-") - append (cl-loop for char from ?a to ?z - for key = (format "%s%c" prefix char) - unless (member key vterm-keymap-exceptions) - collect key)))) - (defvar vterm-copy-map (make-sparse-keymap)) (define-key vterm-copy-map (kbd "C-c C-t") #'vterm-copy-mode) -- cgit v1.0