Whitespace cleanup in src/database

[sxemacs] / src / symbols.c

diff --git a/src/symbols.c b/src/symbols.c
index a2441a8..fff6d46 100644 (file)
--- a/src/symbols.c
+++ b/src/symbols.c
@@ -1238,11 +1238,9 @@ void
 print_symbol_value_magic(Lisp_Object obj,
                         Lisp_Object printcharfun, int escapeflag)
 {
-       char buf[200];
-       sprintf(buf, "#<INTERNAL OBJECT (SXEmacs bug?) (%s type %d) 0x%lx>",
-               XRECORD_LHEADER_IMPLEMENTATION(obj)->name,
-               XSYMBOL_VALUE_MAGIC_TYPE(obj), (long)XPNTR(obj));
-       write_c_string(buf, printcharfun);
+       write_fmt_str( printcharfun, "#<INTERNAL OBJECT (SXEmacs bug?) (%s type %d) 0x%lx>",
+                      XRECORD_LHEADER_IMPLEMENTATION(obj)->name,
+                      XSYMBOL_VALUE_MAGIC_TYPE(obj), (long)XPNTR(obj));
 }
 
 static const struct lrecord_description symbol_value_forward_description[] = {
@@ -3749,7 +3747,8 @@ defsymbol_massage_name_1(Lisp_Object * location, const char *name, int dump_p,
                assert(len + 1 < sizeof(temp));
        else
                assert(len < sizeof(temp));
-       strcpy(temp, name + 1); /* Remove initial Q */
+        temp[0]='\0';
+       strncat(temp, name + 1, sizeof(temp)-1);        /* Remove initial Q */
        if (multiword_predicate_p) {
                 /* Overwrite the 'p' which is the last char of name
                    and put "_p" instead. */