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

* eat.el (eat-term-make-keymap): Use 'cl-flet'

Browse source
This commit is contained in:
Akib Azmain Turja 2022-11-29 00:37:47 +06:00
parent 5ce98430e8
commit c19cf68b28
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
eat.el
View file

@ -4766,9 +4766,9 @@ keywords:
EXCEPTIONS is a list of key sequences to not bind. Don't use EXCEPTIONS is a list of key sequences to not bind. Don't use
\"M-...\" key sequences in EXCEPTIONS, use \"ESC ...\" instead." \"M-...\" key sequences in EXCEPTIONS, use \"ESC ...\" instead."
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(cl-labels ((bind (key) (cl-flet ((bind (key)
(unless (member key exceptions) (unless (member key exceptions)
(define-key map key input-command)))) (define-key map key input-command))))
(when (memq :ascii categories) (when (memq :ascii categories)
;; Bind ASCII and self-insertable characters except ESC and ;; Bind ASCII and self-insertable characters except ESC and
;; DEL. ;; DEL.