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:
parent
48202c147b
commit
cf011ad6b1
1 changed files with 5 additions and 0 deletions
5
eat.el
5
eat.el
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue