X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=src%2Fsymbols.c;h=fff6d46fb779137e545610868ff725197185cd7b;hb=78dd9663a9a07a0572e1e286dfea557c6f5be826;hp=a2441a8963a5991a63566cdb740afd5a3e83e7fe;hpb=5d005036fed821ef324ffc11b5d1f2c2096abb90;p=sxemacs

diff --git a/src/symbols.c b/src/symbols.c
index a2441a8..fff6d46 100644
--- 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. */