From 31ac8d8c427b54a18127d9bd53f1f9d4371b762f Mon Sep 17 00:00:00 2001
From: Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Date: Thu, 24 Feb 1994 12:54:54 +0000
Subject: [PATCH] (x_window): Call XChangeWindowAttributes with the standard
 event set to make all these events reach the Emacs frame.

---
 src/xfns.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/xfns.c b/src/xfns.c
index a0192bff9e..19c0f0b373 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1699,6 +1699,8 @@ x_window (f)
      struct frame *f;
 {
   XClassHint class_hints;
+  XSetWindowAttributes attributes;
+  unsigned long attribute_mask;
 
 #ifdef USE_X_TOOLKIT
   Widget shell_widget;
@@ -1772,13 +1774,16 @@ x_window (f)
 		   Xatom_wm_protocols, XA_ATOM, 32, PropModeAppend,
 		   (unsigned char*) NULL, 0);
 
+ /* Make all the standard events reach the Emacs frame.  */
+  attributes.event_mask = STANDARD_EVENT_SET;
+  attribute_mask = CWEventMask;
+  XChangeWindowAttributes (XtDisplay (shell_widget), XtWindow (shell_widget),
+			   attribute_mask, &attributes);
+
   XtMapWidget (screen_widget);
 
 #else /* not USE_X_TOOLKIT */
 
-  XSetWindowAttributes attributes;
-  unsigned long attribute_mask;
-
 
   attributes.background_pixel = f->display.x->background_pixel;
   attributes.border_pixel = f->display.x->border_pixel;
-- 
2.20.1