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

more symbols

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-11-12 20:42:44 +01:00
parent 6ce0c0f8b5
commit abb0b6fe76
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

@ -63,7 +63,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))))