pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Compare commits

base: pestctrl:79f776ab6395e1edc4cddff369972431e2136b2a
Branches Tags
pestctrl:master
pestctrl:build36
pestctrl:llvm-conf
...
compare: pestctrl:ea4f14bb5e39d1daaf204f194c3195ccf18e0570
Branches Tags
pestctrl:build36
pestctrl:master
pestctrl:llvm-conf

2 commits
79f776ab63 ... ea4f14bb5e

Author SHA1 Message Date
Benson Chu
ea4f14bb5e Refactored 2025-08-12 16:16:12 -05:00
Benson Chu
0ab18831fb C-M works now 2025-08-12 10:01:27 -05:00
1 changed files with 17 additions and 6 deletions
Show stats Expand all files Collapse all files

23
lisp/term-compat.el
View file

@ -26,11 +26,15 @@
(require 'term/xterm)
(let ((ascii-start 97))
(let ((ascii-start 97)
(C-M-start ?\C-\M-a))
(dotimes (n 26)
(define-key xterm-function-map
(format "\e[27;5;%d~" (+ ascii-start n))
(vector (1+ n)))))
(vector (1+ n)))
(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;5;8~"
@ -42,15 +46,22 @@
)
(define-key xterm-function-map
"\e[32;2;32~"
"\e[27;2;32~"
[?\S-\s])
;; (xterm--init-modify-other-keys)
(send-string-to-terminal "\e[>4;2m")
(push "\e[>4m" (terminal-parameter nil 'tty-mode-reset-strings))
(push "\e[>4;2m" (terminal-parameter nil 'tty-mode-set-strings))
(defun my/xterm--init-modify-other-keys ()
"Terminal initialization for xterm's modifyOtherKeys support."
(send-string-to-terminal "\e[>4;2m")
(push "\e[>4m" (terminal-parameter nil 'tty-mode-reset-strings))
(push "\e[>4;2m" (terminal-parameter nil 'tty-mode-set-strings)))
(advice-add #'xterm--init-modify-other-keys
:override
#'my/xterm--init-modify-other-keys)
(xterm-mouse-mode 1)
(terminal-init-xterm)
;; (global-set-key (kbd "M-[ emacs-C-SPC") #'set-mark-command)
;; (global-set-key (kbd "M-[ emacs-M-SPC") #'cycle-spacing)