From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Apr 1994 18:13:22 +0000 (+0000)
Subject: (x_window) [USE_X_TOOLKIT]: Call XSetWMHints.
X-Git-Tag: emacs-19.34~8681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8228bebad005ddb1887d41c2fab9700026e1720;p=emacs.git

(x_window) [USE_X_TOOLKIT]: Call XSetWMHints.
---

diff --git a/src/xfns.c b/src/xfns.c
index cb6255bdd29..a56a302a2b5 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1871,6 +1871,10 @@ x_window (f, window_prompting, minibuffer_only)
   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