Let bind x-wait-for-event-timeout

1 files changed, 2 insertions, 0 deletions

diff --git a/corfu.el b/corfu.el
index c0f41a9..925f67b 100644
--- a/corfu.el
+++ b/corfu.el
@@ -420,6 +420,7 @@ the initial completion state.  PREFIX is the minimum prefix length."
 ;; Not present on non-gtk/non-x builds
 (defvar x-gtk-resize-child-frames)
 (defvar x-fast-protocol-requests)
+(defvar x-wait-for-event-timeout)
 
 ;; Function adapted from posframe.el by tumashu
 (defun corfu--make-frame (frame x y width height)
@@ -432,6 +433,7 @@ FRAME is the existing frame."
   (let* ((window-min-height 1)
          (window-min-width 1)
          (inhibit-redisplay t)
+         (x-wait-for-event-timeout)
          (x-fast-protocol-requests t)
          (x-gtk-resize-child-frames corfu--gtk-resize-child-frames)
          (before-make-frame-hook)