[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/eat 86e247137b 09/15: Use 'vector' directly instead of bac
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/eat 86e247137b 09/15: Use 'vector' directly instead of backquote |
Date: |
Tue, 29 Nov 2022 05:58:38 -0500 (EST) |
branch: elpa/eat
commit 86e247137be77ed3b143f3d15a696f0a765e7fbf
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Use 'vector' directly instead of backquote
* eat.el (eat-term-make-keymap): Use 'vector' directly instead
of backquote.
---
eat.el | 25 +++++++++++++------------
1 file changed, 13 insertions(+), 12 deletions(-)
diff --git a/eat.el b/eat.el
index 8cd1b23ca9..d7946cf071 100644
--- a/eat.el
+++ b/eat.el
@@ -4776,7 +4776,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't
use
(cl-loop
for i from ?\C-@ to ?~
do (unless (= i meta-prefix-char)
- (bind `[,i])))
+ (bind (vector i))))
;; Bind `backspace', `delete', `deletechar', and all modified
;; variants.
(dolist (key '( backspace C-backspace
@@ -4787,18 +4787,19 @@ EXCEPTIONS is a list of key sequences to not bind.
Don't use
deletechar C-deletechar M-deletechar
S-deletechar C-M-deletechar C-S-deletechar
M-S-deletechar C-M-S-deletechar))
- (bind `[,key]))
+ (bind (vector key)))
;; Bind these non-encodable keys. They are translated.
(dolist (key '(?\C-- ?\C-? ?\C-\s))
- (bind `[,key]))
+ (bind (vector key)))
;; Bind M-<ASCII> keys.
- (unless (member `[,meta-prefix-char] exceptions)
- (define-key map `[,meta-prefix-char] (make-sparse-keymap))
+ (unless (member (vector meta-prefix-char) exceptions)
+ (define-key map (vector meta-prefix-char)
+ (make-sparse-keymap))
(cl-loop
for i from ?\C-@ to ?~
do (unless (memq i '(?O ?\[))
- (bind `[,meta-prefix-char ,i])))
- (bind `[,meta-prefix-char ,meta-prefix-char])))
+ (bind (vector meta-prefix-char i))))
+ (bind (vector meta-prefix-char meta-prefix-char))))
(when (memq :arrow categories)
(dolist (key '( up down right left
C-up C-down C-right C-left
@@ -4808,7 +4809,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't
use
C-S-up C-S-down C-S-right C-S-left
M-S-up M-S-down M-S-right M-S-left
C-M-S-up C-M-S-down C-M-S-right C-M-S-left))
- (bind `[,key])))
+ (bind (vector key))))
(when (memq :navigation categories)
(dolist (key '( home C-home M-home S-home C-M-home C-S-home
M-S-home C-M-S-home
@@ -4818,15 +4819,15 @@ EXCEPTIONS is a list of key sequences to not bind.
Don't use
C-S-prior M-S-prior C-M-S-prior
next C-next M-next S-next C-M-next C-S-next
M-S-next C-M-S-next))
- (bind `[,key])))
+ (bind (vector key))))
(when (memq :function categories)
(cl-loop
for i from 1 to 63
do (let ((key (intern (format "f%i" i))))
- (bind `[,key]))))
+ (bind (vector key)))))
(when (memq :mouse-click categories)
(dolist (key '(mouse-1 mouse-2 mouse-3))
- (bind `[,key])))
+ (bind (vector key))))
(when (memq :mouse-modifier categories)
(dolist (key
'( down-mouse-1 drag-mouse-1 down-mouse-2
@@ -4883,7 +4884,7 @@ EXCEPTIONS is a list of key sequences to not bind. Don't
use
M-S-wheel-right M-S-wheel-left C-M-S-wheel-up
C-M-S-wheel-down C-M-S-wheel-right
C-M-S-wheel-left))
- (bind `[,key])))
+ (bind (vector key))))
(when (memq :mouse-movement categories)
(bind [mouse-movement])))
map))
- [nongnu] elpa/eat 59c0745e75 12/15: Don't put 'error' as the only then part of 'if', (continued)
- [nongnu] elpa/eat 59c0745e75 12/15: Don't put 'error' as the only then part of 'if', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 3e496e8db8 14/15: ; Merge diverged elpa/eat branch of NonGNU ELPA, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 5ce98430e8 07/15: Use more readable '?\C-\s' instead of '?\C-\ ', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 10d9f3cb56 11/15: Use 'mapc' to make & kill multiple local variables, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 2dd4e42773 01/15: Prefer 'pcase-exhaustive' over 'pcase', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat dc99739fb8 04/15: * eat.el (eat--trace-exec): Use "-*- mode: MD -*-", ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat c19cf68b28 08/15: * eat.el (eat-term-make-keymap): Use 'cl-flet', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 1b2b7aee26 13/15: Bump version to 0.1, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 528bfe424d 10/15: Put declare-function and defvar outside functions, ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 31f93da3fd 06/15: * eat.el (eat-mode): Fix char mode 'help-echo', ELPA Syncer, 2022/11/29
- [nongnu] elpa/eat 86e247137b 09/15: Use 'vector' directly instead of backquote,
ELPA Syncer <=
- [nongnu] elpa/eat d8171b9a8c 15/15: ; Ignore a commit while generating ChangeLog, ELPA Syncer, 2022/11/29