# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738479342 0
# Node ID 647229114f4759bcece7560630aa18c9d4374d74
# Parent  ff7e4f44269d798d274b2c08c28688a64b530392
	* xfns.c: Make resource manager work correctly even when
	Vinvocation_name has periods and asterisks in it.
	(Vxrdb_name): New variable.
	(Fx_get_resource): Use it instead of Vinvocation_name.
	(Fx_open_connection): Initialize it to a copy of Vinvocation_name,
	with the dots and stars replaced by hyphens.
	(syms_of_xfns): staticpro it here.

	* xfns.c (Fx_get_resource): Use the proper format string when the
	attribute has been specified.

diff -r ff7e4f44269d -r 647229114f47 src/xfns.c
--- a/src/xfns.c	Thu May 27 05:01:09 1993 +0000
+++ b/src/xfns.c	Thu May 27 05:09:02 1993 +0000
@@ -54,6 +54,9 @@
 /* The class of this X application.  */
 #define EMACS_CLASS "Emacs"
 
+/* The name we're using for this X application.  */
+Lisp_Object Vxrdb_name;
+
 /* Title name and application name for X stuff. */
 extern char *x_id_name;
 
@@ -1104,7 +1107,7 @@
     {
       /* Allocate space for the components, the dots which separate them,
 	 and the final '\0'.  */
-      name_key = (char *) alloca (XSTRING (Vinvocation_name)->size
+      name_key = (char *) alloca (XSTRING (Vxrdb_name)->size
 				  + XSTRING (attribute)->size
 				  + 2);
       class_key = (char *) alloca ((sizeof (EMACS_CLASS) - 1)
@@ -1112,7 +1115,7 @@
 				   + 2);
 
       sprintf (name_key, "%s.%s",
-	       XSTRING (Vinvocation_name)->data,
+	       XSTRING (Vxrdb_name)->data,
 	       XSTRING (attribute)->data);
       sprintf (class_key, "%s.%s",
 	       EMACS_CLASS,
@@ -1120,7 +1123,7 @@
     }
   else
     {
-      name_key = (char *) alloca (XSTRING (Vinvocation_name)->size
+      name_key = (char *) alloca (XSTRING (Vxrdb_name)->size
 				  + XSTRING (component)->size
 				  + XSTRING (attribute)->size
 				  + 3);
@@ -1131,10 +1134,10 @@
 				   + 3);
 
       sprintf (name_key, "%s.%s.%s",
-	       XSTRING (Vinvocation_name)->data,
+	       XSTRING (Vxrdb_name)->data,
 	       XSTRING (component)->data,
 	       XSTRING (attribute)->data);
-      sprintf (class_key, "%s.%s",
+      sprintf (class_key, "%s.%s.%s",
 	       EMACS_CLASS,
 	       XSTRING (class)->data,
 	       XSTRING (subclass)->data);
@@ -3415,6 +3418,19 @@
   x_current_display->db = xrdb;
 #endif
 
+  /* Make a version of Vinvocation_name suitable for use in xrdb
+     queries - i.e. containing no dots or asterisks.  */
+  Vxrdb_name = Fcopy_sequence (Vinvocation_name);
+  {
+    int i;
+    int len = XSTRING (Vxrdb_name)->size;
+    char *data = XSTRING (Vxrdb_name)->data;
+    
+    for (i = 0; i < len; i++)
+      if (data[i] == '.' || data[i] == '*')
+	data[i] = '-';
+  }
+
   x_screen = DefaultScreenOfDisplay (x_current_display);
 
   screen_visual = select_visual (x_screen, &n_planes);
@@ -3567,6 +3583,8 @@
 unless you set the mouse color.");
   Vx_pointer_shape = Qnil;
 
+  staticpro (&Vxrdb_name);
+
 #if 0
   DEFVAR_INT ("x-nontext-pointer-shape", &Vx_nontext_pointer_shape,
 	      "The shape of the pointer when not over text.");