comparison src/print.c @ 89866:70daf4dac8c0

(print_prune_string_charset): Fix Lisp_Object/int mixup.

89865:d2b1cc2ef7f1

      string = Fcopy_sequence (string);
      if (print_check_string_result & PRINT_STRING_NON_CHARSET_FOUND)
	{
	  if (NILP (print_prune_charset_plist))
	    print_prune_charset_plist = Fcons (Qcharset, Qnil);
	  Fremove_text_properties (0, SCHARS (string),
				   print_prune_charset_plist, string);
	}
      else
	Fset_text_properties (0, SCHARS (string), Qnil, string);
    }
  return string;
}

static void

89866:70daf4dac8c0

      string = Fcopy_sequence (string);
      if (print_check_string_result & PRINT_STRING_NON_CHARSET_FOUND)
	{
	  if (NILP (print_prune_charset_plist))
	    print_prune_charset_plist = Fcons (Qcharset, Qnil);
	  Fremove_text_properties (make_number (0),
				   make_number (SCHARS (string)),
				   print_prune_charset_plist, string);
	}
      else
	Fset_text_properties (make_number (0), make_number (SCHARS (string)),
			      Qnil, string);
    }
  return string;
}

static void