# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766626368 0
# Node ID a914781ef58ab0656fc926d581a28855d8bddee6
# Parent  5e194e2529e70640579a5bb82c60778ffef46452
(Xatom_editres_name): Variable defined.
(XTread_socket): Handle that kind of message.
(x_term_init): Specify -name option in XtAppInitialize.

(Qface, Qmouse_face): Supply missing Lisp_Object.

diff -r 5e194e2529e7 -r a914781ef58a src/xterm.c
--- a/src/xterm.c	Sun Apr 17 23:44:33 1994 +0000
+++ b/src/xterm.c	Sun Apr 17 23:46:08 1994 +0000
@@ -90,6 +90,7 @@
 extern XtAppContext Xt_app_con;
 extern Widget Xt_app_shell;
 extern void free_frame_menubar ();
+extern void _XEditResCheckMessages ();
 #endif /* USE_X_TOOLKIT */
 
 #ifndef USE_X_TOOLKIT
@@ -309,7 +310,7 @@
 /* Nonzero enables some debugging for the X interface code. */
 extern int _Xdebug;
 
-extern Qface, Qmouse_face;
+extern Lisp_Object Qface, Qmouse_face;
 
 #else /* ! defined (HAVE_X11) */
 
@@ -3312,6 +3313,9 @@
 /* Window manager communication.  */
 Atom Xatom_wm_change_state;
 
+/* EditRes protocol */
+Atom Xatom_editres_name;
+
 /* Record the last 100 characters stored
    to help debug the loss-of-chars-during-GC problem.  */
 int temp_index;
@@ -3450,6 +3454,13 @@
 		    f->display.x->top_pos = new_y;
 		  }
 	      }
+#ifdef USE_X_TOOLKIT
+	    else if (event.xclient.message_type == Xatom_editres_name)
+	      {
+		struct frame *f = x_any_window_to_frame (event.xclient.window);
+		_XEditResCheckMessages (f->display.x->widget, NULL, &event, NULL);
+	      }
+#endif /* USE_X_TOOLKIT */
 	  }
 	  break;
 
@@ -5912,11 +5923,13 @@
   x_focus_frame = x_highlight_frame = 0;
 
 #ifdef USE_X_TOOLKIT
-  argv = (char **) XtMalloc (3 * sizeof (char *));
+  argv = (char **) XtMalloc (5 * sizeof (char *));
   argv [0] = "";
   argv [1] = "-display";
   argv [2] = display_name;
-  argc = 3;
+  argv [3] = "-name";
+  argv [4] = "emacs";
+  argc = 5;
   Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs",
 				  emacs_options, XtNumber (emacs_options),
 				  &argc, argv,