X-Git-Url: https://git.artsoft.org/?a=blobdiff_plain;f=src%2Flibgame%2Fsystem.c;h=78fd020039b03ff13ba6895e349387b51c2b8133;hb=3fb9d9cf97f3d4da6066f3c6b2ce84c81b768982;hp=ed73cb5bf3c5129092af6f764c38cd8f725ddd23;hpb=9583e9c55b889974e0df9a8ca1930efdf29bda29;p=rocksndiamonds.git

diff --git a/src/libgame/system.c b/src/libgame/system.c
index ed73cb5b..78fd0200 100644
--- a/src/libgame/system.c
+++ b/src/libgame/system.c
@@ -1143,6 +1143,15 @@ inline void NextEvent(Event *event)
 #endif
 }
 
+inline void PeekEvent(Event *event)
+{
+#if defined(TARGET_SDL)
+  SDL_PeepEvents(event, 1, SDL_PEEKEVENT, SDL_ALLEVENTS);
+#else
+  XPeekEvent(display, event);
+#endif
+}
+
 inline Key GetEventKey(KeyEvent *event, boolean with_modifiers)
 {
 #if defined(TARGET_SDL)