--- a/src/keymap.c	Thu Jan 28 04:02:14 2010 -0600
+++ b/src/keymap.c	Thu Jan 28 04:27:30 2010 -0600
@@ -290,7 +290,7 @@
   Lisp_Keymap *keymap = XKEYMAP (obj);
   if (print_readably)
     printing_unreadable_lcrecord (obj, 0);
-  write_c_string (printcharfun, "#<keymap ");
+  write_ascstring (printcharfun, "#<keymap ");
   if (!NILP (keymap->name))
     {
       write_fmt_string_lisp (printcharfun, "%S ", 1, keymap->name);
@@ -474,7 +474,7 @@
       Ibyte str [1 + MAX_ICHAR_LEN];
       Bytecount count = set_itext_ichar (str, XCHAR (keysym));
       str[count] = 0;
-      keysym = intern_int (str);
+      keysym = intern_istring (str);
     }
   return control_meta_superify (keysym, modifiers);
 }
@@ -1960,17 +1960,17 @@
   if (EQ (keys, new_keys))
     signal_ferror_with_frob (Qinvalid_operation, mpc_binding,
 			     "can't bind %s: %s has a non-keymap binding",
-			     (char *) XSTRING_DATA (Fkey_description (keys)),
-			     (char *) XSTRING_DATA (Fsingle_key_description
-						    (Vmeta_prefix_char)));
+			     (CIbyte *) XSTRING_DATA (Fkey_description (keys)),
+			     (CIbyte *) XSTRING_DATA (Fsingle_key_description
+						      (Vmeta_prefix_char)));
   else
     signal_ferror_with_frob (Qinvalid_operation, mpc_binding,
 			     "can't bind %s: %s %s has a non-keymap binding",
-			     (char *) XSTRING_DATA (Fkey_description (keys)),
-			     (char *) XSTRING_DATA (Fkey_description
-						    (new_keys)),
-			     (char *) XSTRING_DATA (Fsingle_key_description
-						    (Vmeta_prefix_char)));
+			     (CIbyte *) XSTRING_DATA (Fkey_description (keys)),
+			     (CIbyte *) XSTRING_DATA (Fkey_description
+						      (new_keys)),
+			     (CIbyte *) XSTRING_DATA (Fsingle_key_description
+						      (Vmeta_prefix_char)));
 }
 
 DEFUN ("define-key", Fdefine_key, 3, 3, 0, /*
@@ -3497,7 +3497,7 @@
 	    string = s2;
 	  else
 	    {
-	      /* if (NILP (sep)) Lisp_Object sep = build_string (" ") */;
+	      /* if (NILP (sep)) Lisp_Object sep = build_ascstring (" ") */;
 	      string = concat2 (string, concat2 (Vsingle_space_string, s2));
 	    }
 	}
@@ -3655,7 +3655,7 @@
     }
 
   *p = 0;
-  return build_string ((char *) buf);
+  return build_istring (buf);
 }
 
 
@@ -4150,7 +4150,7 @@
 
   Findent_to (make_int (16), make_int (3), buffer);
   if (keymapp)
-    buffer_insert_c_string (XBUFFER (buffer), "<< ");
+    buffer_insert_ascstring (XBUFFER (buffer), "<< ");
 
   if (SYMBOLP (definition))
     {
@@ -4158,19 +4158,19 @@
     }
   else if (STRINGP (definition) || VECTORP (definition))
     {
-      buffer_insert_c_string (XBUFFER (buffer), "Kbd Macro: ");
+      buffer_insert_ascstring (XBUFFER (buffer), "Kbd Macro: ");
       buffer_insert1 (XBUFFER (buffer), Fkey_description (definition));
     }
   else if (COMPILED_FUNCTIONP (definition))
-    buffer_insert_c_string (XBUFFER (buffer), "Anonymous Compiled Function");
+    buffer_insert_ascstring (XBUFFER (buffer), "Anonymous Compiled Function");
   else if (CONSP (definition) && EQ (XCAR (definition), Qlambda))
-    buffer_insert_c_string (XBUFFER (buffer), "Anonymous Lambda");
+    buffer_insert_ascstring (XBUFFER (buffer), "Anonymous Lambda");
   else if (KEYMAPP (definition))
     {
       Lisp_Object name = XKEYMAP (definition)->name;
       if (STRINGP (name) || (SYMBOLP (name) && !NILP (name)))
 	{
-	  buffer_insert_c_string (XBUFFER (buffer), "Prefix command ");
+	  buffer_insert_ascstring (XBUFFER (buffer), "Prefix command ");
 	  if (SYMBOLP (name)
 	      && EQ (find_symbol_value (name), definition))
 	    buffer_insert1 (XBUFFER (buffer), Fsymbol_name (name));
@@ -4180,14 +4180,14 @@
 	    }
 	}
       else
-	buffer_insert_c_string (XBUFFER (buffer), "Prefix Command");
+	buffer_insert_ascstring (XBUFFER (buffer), "Prefix Command");
     }
   else
-    buffer_insert_c_string (XBUFFER (buffer), "??");
+    buffer_insert_ascstring (XBUFFER (buffer), "??");
 
   if (keymapp)
-    buffer_insert_c_string (XBUFFER (buffer), " >>");
-  buffer_insert_c_string (XBUFFER (buffer), "\n");
+    buffer_insert_ascstring (XBUFFER (buffer), " >>");
+  buffer_insert_ascstring (XBUFFER (buffer), "\n");
   UNGCPRO;
 }
 
@@ -4470,7 +4470,7 @@
   if (!NILP (list))
     {
       list = list_sort (list, Qnil, describe_map_sort_predicate);
-      buffer_insert_c_string (buf, "\n");
+      buffer_insert_ascstring (buf, "\n");
       while (!NILP (list))
 	{
           Lisp_Object elt = XCAR (XCAR (list));
@@ -4481,17 +4481,17 @@
 	    buffer_insert_lisp_string (buf, elt_prefix);
 
 	  if (modifiers & XEMACS_MOD_META)
-	    buffer_insert_c_string (buf, "M-");
+	    buffer_insert_ascstring (buf, "M-");
 	  if (modifiers & XEMACS_MOD_CONTROL)
-	    buffer_insert_c_string (buf, "C-");
+	    buffer_insert_ascstring (buf, "C-");
 	  if (modifiers & XEMACS_MOD_SUPER)
-	    buffer_insert_c_string (buf, "S-");
+	    buffer_insert_ascstring (buf, "S-");
 	  if (modifiers & XEMACS_MOD_HYPER)
-	    buffer_insert_c_string (buf, "H-");
+	    buffer_insert_ascstring (buf, "H-");
 	  if (modifiers & XEMACS_MOD_ALT)
-	    buffer_insert_c_string (buf, "Alt-");
+	    buffer_insert_ascstring (buf, "Alt-");
 	  if (modifiers & XEMACS_MOD_SHIFT)
-	    buffer_insert_c_string (buf, "Sh-");
+	    buffer_insert_ascstring (buf, "Sh-");
 	  if (SYMBOLP (keysym))
 	    {
 	      Lisp_Object code = Fget (keysym, Qcharacter_of_keysym, Qnil);
@@ -4500,19 +4500,19 @@
 	      /* Calling Fsingle_key_description() would cons more */
 #if 0                           /* This is bogus */
 	      if (EQ (keysym, QKlinefeed))
-		buffer_insert_c_string (buf, "LFD");
+		buffer_insert_ascstring (buf, "LFD");
 	      else if (EQ (keysym, QKtab))
-		buffer_insert_c_string (buf, "TAB");
+		buffer_insert_ascstring (buf, "TAB");
 	      else if (EQ (keysym, QKreturn))
-		buffer_insert_c_string (buf, "RET");
+		buffer_insert_ascstring (buf, "RET");
 	      else if (EQ (keysym, QKescape))
-		buffer_insert_c_string (buf, "ESC");
+		buffer_insert_ascstring (buf, "ESC");
 	      else if (EQ (keysym, QKdelete))
-		buffer_insert_c_string (buf, "DEL");
+		buffer_insert_ascstring (buf, "DEL");
 	      else if (EQ (keysym, QKspace))
-		buffer_insert_c_string (buf, "SPC");
+		buffer_insert_ascstring (buf, "SPC");
 	      else if (EQ (keysym, QKbackspace))
-		buffer_insert_c_string (buf, "BS");
+		buffer_insert_ascstring (buf, "BS");
 	      else
 #endif
                 if (c >= printable_min)
@@ -4522,7 +4522,7 @@
 	  else if (CHARP (keysym))
 	    buffer_insert_emacs_char (buf, XCHAR (keysym));
 	  else
-	    buffer_insert_c_string (buf, "---bad keysym---");
+	    buffer_insert_ascstring (buf, "---bad keysym---");
 
 	  if (elided)
 	    elided = 0;
@@ -4538,9 +4538,9 @@
 	      if (k != 0)
 		{
 		  if (k == 1)
-		    buffer_insert_c_string (buf, ", ");
+		    buffer_insert_ascstring (buf, ", ");
 		  else
-		    buffer_insert_c_string (buf, " .. ");
+		    buffer_insert_ascstring (buf, " .. ");
 		  elided = 1;
 		  continue;
 		}