From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 12 Jun 1994 15:43:34 +0000 (+0000)
Subject: (x_window): Request "save yourself" commands.
X-Git-Tag: emacs-19.34~7993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=032e4ebe994dc8c14f62bab11cf19d4465ba1b34;p=emacs.git

(x_window): Request "save yourself" commands.
---

diff --git a/src/xfns.c b/src/xfns.c
index 4a884060436..4acef369224 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2051,9 +2051,14 @@ 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);
 
+  /* Request "save yourself" and "delete window" commands from wm.  */
+  {
+    Atom protocols[2];
+    protocols[0] = Xatom_wm_delete_window;
+    protocols[1] = Xatom_wm_save_yourself;
+    XSetWMProtocols (x_current_display, FRAME_X_WINDOW (f), protocols, 2);
+  }
 
   /* 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