# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771540081 0
# Node ID 537930034e73374d7405318be078c6e5b040b771
# Parent  3b27d2451f83fb50d06486d37b3295c1935bc6a9
(XTread_socket): Handle Xatom_wm_save_yourself by calling XSetCommand.

diff -r 3b27d2451f83 -r 537930034e73 src/xterm.c
--- a/src/xterm.c	Mon Jun 13 20:41:00 1994 +0000
+++ b/src/xterm.c	Mon Jun 13 20:41:21 1994 +0000
@@ -178,6 +178,10 @@
 extern Lisp_Object Vcommand_line_args;
 char *hostname, *x_id_name;
 
+/* Initial values of argv and argc.  */
+extern char **initial_argv;
+extern int initial_argc;
+
 /* This is the X connection that we are using.  */
 
 Display *x_current_display;
@@ -3440,6 +3444,17 @@
 		       a keyboard or mouse event arrives. */
 		    if (numchars > 0)
 		      {
+			/* This is just so we only give real data once
+			   for a single Emacs process.  */
+			if (event.xclient.window
+			    == FRAME_X_WINDOW (selected_frame))
+			  XSetCommand (x_current_display,
+				       event.xclient.window,
+				       initial_argv, initial_argc);
+			else
+			  XSetCommand (x_current_display,
+				       event.xclient.window,
+				       0, 0);
 		      }
 		  }
 		else if (event.xclient.data.l[0] == Xatom_wm_delete_window)