comparison src/process.c @ 110829:4d672e9d91bf

Complement a coding system for encoding arguments and input to a process.

110824:bf3b8d29e992

	  val = XCDR (coding_systems);
	else if (CONSP (Vdefault_process_coding_system))
	  val = XCDR (Vdefault_process_coding_system);
      }
    XPROCESS (proc)->encode_coding_system = val;
  }


  XPROCESS (proc)->decoding_buf = make_uninit_string (0);
  XPROCESS (proc)->decoding_carryover = 0;

      if (SBYTES (tem) > 2 && SREF (tem, 0) == '/'
	  && SREF (tem, 1) == ':')
	tem = Fsubstring (tem, make_number (2), Qnil);

      {
	struct gcpro gcpro1;
	GCPRO1 (tem);

	/* Encode the file name and put it in NEW_ARGV.
	   That's where the child will use it to execute the program.  */

	for (i = 3; i < nargs; i++)
	  {
	    tem = Fcons (args[i], tem);
	    CHECK_STRING (XCAR (tem));
	    if (STRING_MULTIBYTE (XCAR (tem)))
	      XSETCAR (tem,
		       code_convert_string_norecord
		       (XCAR (tem), XPROCESS (proc)->encode_coding_system, 1));
	  }

	UNGCPRO;
      }

  if ((STRINGP (object) && STRING_MULTIBYTE (object))
      || (BUFFERP (object)
	  && !NILP (XBUFFER (object)->enable_multibyte_characters))
      || EQ (object, Qt))
    {
      if (!EQ (Vlast_coding_system_used, p->encode_coding_system))
	/* The coding system for encoding was changed to raw-text
	   because we sent a unibyte text previously.  Now we are
	   sending a multibyte text, thus we must encode it by the
	   original coding system specified for the current process.  */
	setup_coding_system (p->encode_coding_system, coding);
      coding->src_multibyte = 1;
    }
  else
    {
      /* For sending a unibyte text, character code conversion should

110829:4d672e9d91bf

	  val = XCDR (coding_systems);
	else if (CONSP (Vdefault_process_coding_system))
	  val = XCDR (Vdefault_process_coding_system);
      }
    XPROCESS (proc)->encode_coding_system = val;
    /* Note: At this momemnt, the above coding system may leave
       text-conversion or eol-conversion unspecified.  They will be
       decided after we read output from the process and decode it by
       some coding system, or just before we actually send a text to
       the process.  */
  }


  XPROCESS (proc)->decoding_buf = make_uninit_string (0);
  XPROCESS (proc)->decoding_carryover = 0;

      if (SBYTES (tem) > 2 && SREF (tem, 0) == '/'
	  && SREF (tem, 1) == ':')
	tem = Fsubstring (tem, make_number (2), Qnil);

      {
	Lisp_Object arg_encoding = Qnil;
	struct gcpro gcpro1;
	GCPRO1 (tem);

	/* Encode the file name and put it in NEW_ARGV.
	   That's where the child will use it to execute the program.  */

	for (i = 3; i < nargs; i++)
	  {
	    tem = Fcons (args[i], tem);
	    CHECK_STRING (XCAR (tem));
	    if (STRING_MULTIBYTE (XCAR (tem)))
	      {
		if (NILP (arg_encoding))
		  arg_encoding = (complement_process_encoding_system
				  (XPROCESS (proc)->encode_coding_system));
		XSETCAR (tem,
			 code_convert_string_norecord
			 (XCAR (tem), arg_encoding, 1));
	      }
	  }

	UNGCPRO;
      }

  if ((STRINGP (object) && STRING_MULTIBYTE (object))
      || (BUFFERP (object)
	  && !NILP (XBUFFER (object)->enable_multibyte_characters))
      || EQ (object, Qt))
    {
      p->encode_coding_system
	= complement_process_encoding_system (p->encode_coding_system);
      if (!EQ (Vlast_coding_system_used, p->encode_coding_system))
	{
	  /* The coding system for encoding was changed to raw-text
	     because we sent a unibyte text previously.  Now we are
	     sending a multibyte text, thus we must encode it by the
	     original coding system specified for the current process.

	     Another reason we comming here is that the coding system
	     was just complemented and new one was returned by
	     complement_process_encoding_system.  */
	  setup_coding_system (p->encode_coding_system, coding);
	  Vlast_coding_system_used = p->encode_coding_system;
	}
      coding->src_multibyte = 1;
    }
  else
    {
      /* For sending a unibyte text, character code conversion should