# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1079005293 0
# Node ID 70daf4dac8c0b1771bbf56cb160347fe4b78afc4
# Parent  d2b1cc2ef7f1e1c5ed574193341151c0abcaee9f
(print_prune_string_charset): Fix Lisp_Object/int mixup.

diff -r d2b1cc2ef7f1 -r 70daf4dac8c0 src/print.c
--- a/src/print.c	Thu Mar 11 11:40:12 2004 +0000
+++ b/src/print.c	Thu Mar 11 11:41:33 2004 +0000
@@ -1383,11 +1383,13 @@
 	{
 	  if (NILP (print_prune_charset_plist))
 	    print_prune_charset_plist = Fcons (Qcharset, Qnil);
-	  Fremove_text_properties (0, SCHARS (string),
+	  Fremove_text_properties (make_number (0),
+				   make_number (SCHARS (string)),
 				   print_prune_charset_plist, string);
 	}
       else
-	Fset_text_properties (0, SCHARS (string), Qnil, string);
+	Fset_text_properties (make_number (0), make_number (SCHARS (string)),
+			      Qnil, string);
     }
   return string;
 }