# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767556802 0
# Node ID f9eeb75c2b76c294a3c467df6732bb9f2f6237dc
# Parent  945fd4c43a144049f210ecd7bed102d6e8218501
(x_window) [USE_X_TOOLKIT]: Call XSetWMHints.

diff -r 945fd4c43a14 -r f9eeb75c2b76 src/xfns.c
--- a/src/xfns.c	Thu Apr 28 08:23:25 1994 +0000
+++ b/src/xfns.c	Thu Apr 28 18:13:22 1994 +0000
@@ -1871,6 +1871,10 @@
   class_hints.res_class = EMACS_CLASS;
   XSetClassHint (x_current_display, XtWindow (shell_widget), &class_hints);
 
+  f->display.x->wm_hints.input = True;
+  f->display.x->wm_hints.flags |= InputHint;
+  XSetWMHints (x_current_display, FRAME_X_WINDOW (f), &f->display.x->wm_hints);
+
   hack_wm_protocols (shell_widget);
 
   /* Do a stupid property change to force the server to generate a