More keys!

This commit is contained in:
Benson Chu 2025-08-15 15:21:43 -05:00
parent 42a896742c
commit 9b009b5c6f

View file

@ -27,15 +27,23 @@
(require 'term/xterm)
(let ((ascii-start 97)
(C-M-start ?\C-\M-a))
(C-M-start ?\C-\M-a)
(M-S-start ?\M-\S-a))
(dotimes (n 26)
(define-key xterm-function-map
(format "\e[27;5;%d~" (+ ascii-start n))
(vector (1+ n)))
(define-key xterm-function-map
(format "\e[27;4;%d~" (+ ascii-start n))
(vector (+ n M-S-start)))
(define-key xterm-function-map
(format "\e[27;7;%d~" (+ ascii-start n))
(vector (+ n C-M-start)))))
(define-key xterm-function-map
"\e[27;4;13~"
[M-S-return])
(define-key xterm-function-map
"\e[27;5;8~"
[C-backspace])