comparison src/coding.c @ 46838:395572099269

(Ffind_operation_coding_system): For write-region, if VISIT is a filename, make it the target.

46837:e90f0ad8133a

      || !INTEGERP (target_idx = Fget (operation, Qtarget_idx)))
    error ("Invalid first argument");
  if (nargs < 1 + XINT (target_idx))
    error ("Too few arguments for operation: %s",
	   SDATA (SYMBOL_NAME (operation)));
  target = args[XINT (target_idx) + 1];
  if (!(STRINGP (target)
	|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
    error ("Invalid argument %d", XINT (target_idx) + 1);

46838:395572099269

      || !INTEGERP (target_idx = Fget (operation, Qtarget_idx)))
    error ("Invalid first argument");
  if (nargs < 1 + XINT (target_idx))
    error ("Too few arguments for operation: %s",
	   SDATA (SYMBOL_NAME (operation)));
  /* For write-region, if the 6th argument (i.e. VISIT, the 5th
     argument to write-region) is string, it must be treated as a
     target file name.  */
  if (EQ (operation, Qwrite_region)
      && nargs > 5
      && STRINGP (args[5]))
    target_idx = 4;
  target = args[XINT (target_idx) + 1];
  if (!(STRINGP (target)
	|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
    error ("Invalid argument %d", XINT (target_idx) + 1);