From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 26 Nov 1993 21:50:57 +0000 (+0000)
Subject: (x_window): Call XSetWMProtocols.
X-Git-Tag: emacs-19.34~10658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcce9abd1c4d56f1ca876ba3b2141ebd65a57964;p=emacs.git

(x_window): Call XSetWMProtocols.
---

diff --git a/src/xfns.c b/src/xfns.c
index 249f89ba756..754389db743 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1574,6 +1574,8 @@ x_window (f)
   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);
+  XSetWMProtocols (x_current_display, FRAME_X_WINDOW (f),
+		   &Xatom_wm_delete_window, 1);
 
   /* x_set_name normally ignores requests to set the name if the
      requested name is the same as the current name.  This is the one