From 9b009b5c6f49acf3bb1545180304fb446d7c09c6 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Fri, 15 Aug 2025 15:21:43 -0500 Subject: [PATCH] More keys! --- lisp/term-compat.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/term-compat.el b/lisp/term-compat.el index eaf1d78..b2e742d 100644 --- a/lisp/term-compat.el +++ b/lisp/term-compat.el @@ -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])