# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754350657 0
# Node ID 2696563f32ba91c65afe681117a54bd9177b0f1f
# Parent  3fb665ab94c1e8e3ee0acece95a1d64cefaa87e1
(x_window): Call XSetWMProtocols.

diff -r 3fb665ab94c1 -r 2696563f32ba src/xfns.c
--- a/src/xfns.c	Fri Nov 26 20:42:23 1993 +0000
+++ b/src/xfns.c	Fri Nov 26 21:50:57 1993 +0000
@@ -1574,6 +1574,8 @@
   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