hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 09:31:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

refine list of not C-ed events

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-11-13 21:20:28 +01:00
parent 2547e10d25
commit ab49c4019a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
boon-keys.el
View file

@ -85,7 +85,7 @@
"Swap the control 'bit' in EVENT, if that is a good choice." "Swap the control 'bit' in EVENT, if that is a good choice."
(interactive (list (read-key))) (interactive (list (read-key)))
(cond (cond
((memq event '(9 13 ?{ ?} ?[ ?] ?$ ?< ?> ?: ?\; ?/ ??)) event) ((memq event '(9 13 ?{ ?} ?[ ?] ?$ ?< ?> ?: ?\; ?/ ?? ?. ?,)) event)
((<= event 27) (+ 96 event)) ((<= event 27) (+ 96 event))
((not (eq 0 (logand (lsh 1 26) event))) (logxor (lsh 1 26) event)) ((not (eq 0 (logand (lsh 1 26) event))) (logxor (lsh 1 26) event))
(t (list 'control event)))) (t (list 'control event))))