Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Remove unused original-keycode

Browse source
This commit is contained in:
Cat /dev/Nulo 2021-12-13 19:32:41 -03:00
parent 9cbb053d50
commit 8fefc8cee6
1 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
menelaus.scm
View file

@ -276,7 +276,6 @@
(and slot (vector-set! keys-for-frame slot key)))) (and slot (vector-set! keys-for-frame slot key))))
(define (press-key-aux keycode key) (define (press-key-aux keycode key)
(let ((original-keycode (lookup key)))
;; Sometimes "keycodes" are procedures; in that case we call them with ;; Sometimes "keycodes" are procedures; in that case we call them with
;; true when the key is pressed and false when it's released. ;; true when the key is pressed and false when it's released.
(if (procedure? keycode) (if (procedure? keycode)
@ -295,7 +294,7 @@
(press-modifier (+ sticky 1) key) (press-modifier (+ sticky 1) key)
(release-sticky-modifier (+ sticky 1))) (release-sticky-modifier (+ sticky 1)))
#f) #f)
(press-normal-key keycode key)))))) (press-normal-key keycode key)))))
;; Record a key press in the modifiers/keycodes-down vectors for the layout. ;; Record a key press in the modifiers/keycodes-down vectors for the layout.