comparison src/print.c @ 21244:50929073a0ba

Use STRING_BYTES and SET_STRING_BYTES.

21243:e82a4a4fa12a

{
  if (EQ (printcharfun, Qt) || NILP (printcharfun))
    /* strout is safe for output to a frame (echo area) or to print_buffer.  */
    strout (XSTRING (string)->data,
	    XSTRING (string)->size,
	    XSTRING (string)->size_byte,
	    printcharfun, STRING_MULTIBYTE (string));
  else
    {
      /* Otherwise, string may be relocated by printing one char.
	 So re-fetch the string address for each character.  */
      int i;
      int size = XSTRING (string)->size;
      int size_byte = XSTRING (string)->size_byte;
      struct gcpro gcpro1;
      GCPRO1 (string);
      if (size == size_byte)
	for (i = 0; i < size; i++)
	  PRINTCHAR (XSTRING (string)->data[i]);

	      PRINTCHAR ('(');
	    }
#endif

	  PRINTCHAR ('\"');
	  size_byte = XSTRING (obj)->size_byte;

	  for (i = 0, i_byte = 0; i_byte < size_byte;)
	    {
	      /* Here, we must convert each multi-byte form to the
		 corresponding character code before handing it to PRINTCHAR.  */

    case Lisp_Symbol:
      {
	register int confusing;
	register unsigned char *p = XSYMBOL (obj)->name->data;
	register unsigned char *end = p + XSYMBOL (obj)->name->size_byte;
	register int c;
	int i, i_byte, size_byte;
	Lisp_Object name;

	XSETSTRING (name, XSYMBOL (obj)->name);

	      }
	    PRINTCHAR ('#');
	    PRINTCHAR (':');
	  }

	size_byte = XSTRING (name)->size_byte;

	for (i = 0, i_byte = 0; i_byte < size_byte;)
	  {
	    /* Here, we must convert each multi-byte form to the
	       corresponding character code before handing it to PRINTCHAR.  */

21244:50929073a0ba

{
  if (EQ (printcharfun, Qt) || NILP (printcharfun))
    /* strout is safe for output to a frame (echo area) or to print_buffer.  */
    strout (XSTRING (string)->data,
	    XSTRING (string)->size,
	    STRING_BYTES (XSTRING (string)),
	    printcharfun, STRING_MULTIBYTE (string));
  else
    {
      /* Otherwise, string may be relocated by printing one char.
	 So re-fetch the string address for each character.  */
      int i;
      int size = XSTRING (string)->size;
      int size_byte = STRING_BYTES (XSTRING (string));
      struct gcpro gcpro1;
      GCPRO1 (string);
      if (size == size_byte)
	for (i = 0; i < size; i++)
	  PRINTCHAR (XSTRING (string)->data[i]);

	      PRINTCHAR ('(');
	    }
#endif

	  PRINTCHAR ('\"');
	  size_byte = STRING_BYTES (XSTRING (obj));

	  for (i = 0, i_byte = 0; i_byte < size_byte;)
	    {
	      /* Here, we must convert each multi-byte form to the
		 corresponding character code before handing it to PRINTCHAR.  */

    case Lisp_Symbol:
      {
	register int confusing;
	register unsigned char *p = XSYMBOL (obj)->name->data;
	register unsigned char *end = p + STRING_BYTES (XSYMBOL (obj)->name);
	register int c;
	int i, i_byte, size_byte;
	Lisp_Object name;

	XSETSTRING (name, XSYMBOL (obj)->name);

	      }
	    PRINTCHAR ('#');
	    PRINTCHAR (':');
	  }

	size_byte = STRING_BYTES (XSTRING (name));

	for (i = 0, i_byte = 0; i_byte < size_byte;)
	  {
	    /* Here, we must convert each multi-byte form to the
	       corresponding character code before handing it to PRINTCHAR.  */