Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bind keys 'DEL' and 'M-DEL' keys

Browse source 
* eat.el (eat-term-input-event): Handle 'DEL' and 'M-DEL' keys.
* eat.el (eat-term-make-keymap): Bind 'DEL' and 'M-DEL' keys.
This commit is contained in:
Akib Azmain Turja 2023-07-06 12:03:25 +06:00
parent 64dcbd2c07
commit 79784b70ef
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
eat.el
View file

@ -4036,11 +4036,14 @@ client process may get confused."
('home ?H)
('end ?F)
(_ ?~)))))
('backspace
((or 'backspace ?\C-?)
(send "\C-?"))
('C-backspace
(send "\C-h"))
('M-backspace
((or 'M-backspace
(pred (lambda (ev)
(and (= (event-basic-type ev) ?\C-?)
(equal (event-modifiers ev) '(meta))))))
(send "\e\C-?"))
('C-M-backspace
(send "\e\C-h"))
@ -4300,7 +4303,7 @@ CATEGORIES is a list whose elements should be a one of the following
keywords:
`:ascii' All self-insertable characters, plus
`backspace', `insert', `delete' and
`backspace', `DEL', `insert', `delete' and
`deletechar' keys, with all possible
modifiers.
`:arrow' Arrow keys with all possible modifiers.
@ -4319,11 +4322,10 @@ EXCEPTIONS is a list of key sequences to not bind. Don't use
(unless (member key exceptions)
(define-key map key input-command))))
(when (memq :ascii categories)
;; Bind ASCII and self-insertable characters except ESC and
;; DEL.
;; Bind ASCII and self-insertable characters except ESC.
(bind [remap self-insert-command])
(cl-loop
for i from ?\C-@ to ?~
for i from ?\C-@ to ?\C-?
do (unless (= i meta-prefix-char)
(bind (vector i))))
;; Bind `backspace', `delete', `deletechar', and all modified
@ -4346,7 +4348,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't use
(define-key map (vector meta-prefix-char)
(make-sparse-keymap))
(cl-loop
for i from ?\C-@ to ?~
for i from ?\C-@ to ?\C-?
do (unless (memq i '(?O ?\[))
(bind (vector meta-prefix-char i))))
(bind (vector meta-prefix-char meta-prefix-char))))