From 6f0ca7ad1c524833c28a2e5f5895c1cc8e1ac088 Mon Sep 17 00:00:00 2001 From: Peter Date: Thu, 21 Oct 2021 23:12:39 +0200 Subject: [PATCH] Add support for key repeating. --- src/sdl.c | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/sdl.c b/src/sdl.c index 356add2..6ef8103 100644 --- a/src/sdl.c +++ b/src/sdl.c @@ -351,11 +351,10 @@ void process_SDLevents() { break; case SDL_KEYDOWN: printf("dn ts: %x, type: %x, state: %x, repeat: %x, scancode: %x, sym: %x <%s>, mod: %x\n", event.key.timestamp, event.key.type, event.key.state, event.key.repeat, event.key.keysym.scancode, event.key.keysym.sym, SDL_GetKeyName(event.key.keysym.sym), event.key.keysym.mod); - // TODO: this produces *double* keys for me, need to fix that before using it - /* if (event.key.repeat) { */ - /* /\* Lisp needs to see the UP transition before the DOWN transition *\/ */ - /* handle_keyup(event.key.keysym.sym, event.key.keysym.mod); */ - /* } */ + if (event.key.repeat) { + /* Lisp needs to see the UP transition before the DOWN transition */ + handle_keyup(event.key.keysym.sym, event.key.keysym.mod); + } handle_keydown(event.key.keysym.sym, event.key.keysym.mod); break; case SDL_KEYUP: