Capture keys 'M-backspace' and 'C-M-backspace'

* eat.el (eat-term-input-event): Support 'M-backspace' and
'C-M-backspace'.
* eat.el (eat-term-make-keymap): Bind 'M-backspace' and
'C-M-backspace'.
This commit is contained in:
Akib Azmain Turja 2023-03-31 11:27:12 +06:00
parent 48202c147b
commit cf011ad6b1
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B

5
eat.el
View file

@ -3908,6 +3908,10 @@ client process may get confused."
(send "\C-?"))
('C-backspace
(send "\C-h"))
('M-backspace
(send "\e\C-?"))
('C-M-backspace
(send "\e\C-h"))
;; Function keys.
((and (pred symbolp)
fn-key
@ -4193,6 +4197,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't use
;; Bind `backspace', `delete', `deletechar', and all modified
;; variants.
(dolist (key '( backspace C-backspace
M-backspace C-M-backspace
insert C-insert M-insert S-insert C-M-insert
C-S-insert M-S-insert C-M-S-insert
delete C-delete M-delete S-delete C-M-delete