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

Use more readable '?\C-\s' instead of '?\C-\ '

Browse source 
* eat.el (eat-term-input-event, eat-term-make-keymap): Use more
readable '?\C-\s' instead of '?\C-\ '.
This commit is contained in:
Akib Azmain Turja 2022-11-29 00:31:34 +06:00
parent 31f93da3fd
commit 5ce98430e8
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eat.el
View file

@ -4557,7 +4557,7 @@ client process may get confused."
(let ((ch (pcase (event-convert-list (let ((ch (pcase (event-convert-list
(append (remq 'meta mods) (append (remq 'meta mods)
(list base))) (list base)))
(?\C-\ ?\C-@) (?\C-\s ?\C-@)
(?\C-/ ?\C-?) (?\C-/ ?\C-?)
(?\C-- ?\C-_) (?\C-- ?\C-_)
(c c)))) (c c))))
@ -4789,7 +4789,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't use
M-S-deletechar C-M-S-deletechar)) M-S-deletechar C-M-S-deletechar))
(bind `[,key])) (bind `[,key]))
;; Bind these non-encodable keys. They are translated. ;; Bind these non-encodable keys. They are translated.
(dolist (key '(?\C-- ?\C-? ?\C-\ )) (dolist (key '(?\C-- ?\C-? ?\C-\s))
(bind `[,key])) (bind `[,key]))
;; Bind M-<ASCII> keys. ;; Bind M-<ASCII> keys.
(unless (member `[,meta-prefix-char] exceptions) (unless (member `[,meta-prefix-char] exceptions)