changeset 89866:70daf4dac8c0

(print_prune_string_charset): Fix Lisp_Object/int mixup.
author Kenichi Handa <handa@m17n.org>
date Thu, 11 Mar 2004 11:41:33 +0000
parents d2b1cc2ef7f1
children dd677f4114e6
files src/print.c
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }