(print_prune_string_charset): Fix Lisp_Object/int mixup.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/print.c b/src/print.c
index 6baec1202e..1d4df43447 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1383,11 +1383,13 @@ print_prune_string_charset (string)
 	{
 	  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;
 }