Cleanup some jack server interactions

[sxemacs] / src / casetab.c

diff --git a/src/casetab.c b/src/casetab.c
index dd8426d..0af249d 100644 (file)
--- a/src/casetab.c
+++ b/src/casetab.c
@@ -70,13 +70,10 @@ static void
 print_case_table(Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
 {
        Lisp_Case_Table *ct = XCASE_TABLE(obj);
-       char buf[200];
        if (print_readably)
                error("printing unreadable object #<case-table 0x%x",
                      ct->header.uid);
-       write_c_string("#<case-table ", printcharfun);
-       sprintf(buf, "0x%x>", ct->header.uid);
-       write_c_string(buf, printcharfun);
+       write_fmt_str(printcharfun, "#<case-table 0x%x>", ct->header.uid);
 }
 
 static const struct lrecord_description case_table_description[] = {