comparison src/fileio.c @ 19543:e4cc94034827

(Fwrite_region): Convert EOL format even if enable-multibyte-characters is nil. (Fread_file_name): Call Fcompleting_read with INHERIT-INPUT-METHOD nil.

19542:6d3cc8864678

    if (auto_saving)
      val = Qnil;
    else if (!NILP (Vcoding_system_for_write))
      val = Vcoding_system_for_write;
    else if (NILP (current_buffer->enable_multibyte_characters))
      val = (NILP (Flocal_variable_p (Qbuffer_file_coding_system, Qnil))
	     ? Qnil
	     : Fsymbol_value (Qbuffer_file_coding_system));
    else
      {
	Lisp_Object args[7], coding_systems;

	args[0] = Qwrite_region, args[1] = start, args[2] = end,

	val = (CONSP (coding_systems) && !NILP (XCONS (coding_systems)->cdr)
	       ? XCONS (coding_systems)->cdr
	       : current_buffer->buffer_file_coding_system);
      }
    setup_coding_system (Fcheck_coding_system (val), &coding); 
    if (!STRINGP (start) && !NILP (current_buffer->selective_display))
      coding.selective = 1;
  }

  filename = Fexpand_file_name (filename, Qnil);

#endif

  GCPRO2 (insdef, default_filename);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch, insdef1,
			  Qfile_name_history, default_filename);
  /* If Fcompleting_read returned the default string itself
     (rather than a new string with the same contents),
     it has to mean that the user typed RET with the minibuffer empty.
     In that case, we really want to return ""
     so that commands such as set-visited-file-name can distinguish.  */

  GCPRO2 (insdef, defalt);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch,
			  insert_default_directory ? insdef : Qnil,
			  Qfile_name_history, Qnil);

#ifdef VMS
  unbind_to (count, Qnil);
#endif

19543:e4cc94034827

    if (auto_saving)
      val = Qnil;
    else if (!NILP (Vcoding_system_for_write))
      val = Vcoding_system_for_write;
    else if (NILP (current_buffer->enable_multibyte_characters))
      {
	/* If the variable `buffer-file-coding-system' is set locally,
	   it means that the file was read with some kind of code
	   conversion or the varialbe is explicitely set by users.  We
	   had better write it out with the same coding system even if
	   `enable-multibyte-characters' is nil.

	   If is is not set locally, we anyway have to convert EOL
	   format if the default value of `buffer-file-coding-system'
	   tells that it is not Unix-like (LF only) format.  */
	val = current_buffer->buffer_file_coding_system;
	if (NILP (Flocal_variable_p (Qbuffer_file_coding_system, Qnil)))
	  {
	    struct coding_system coding_temp;

	    setup_coding_system (Fcheck_coding_system (val), &coding_temp);
	    if (coding_temp.eol_type == CODING_EOL_CRLF
		|| coding_temp.eol_type == CODING_EOL_CR)
	      {
		setup_coding_system (Qemacs_mule, &coding);
		coding.eol_type = coding_temp.eol_type;
		goto done_setup_coding;
	      }
	    val = Qnil;
	  }
      }
    else
      {
	Lisp_Object args[7], coding_systems;

	args[0] = Qwrite_region, args[1] = start, args[2] = end,

	val = (CONSP (coding_systems) && !NILP (XCONS (coding_systems)->cdr)
	       ? XCONS (coding_systems)->cdr
	       : current_buffer->buffer_file_coding_system);
      }
    setup_coding_system (Fcheck_coding_system (val), &coding); 

  done_setup_coding:
    if (!STRINGP (start) && !NILP (current_buffer->selective_display))
      coding.selective = 1;
  }

  filename = Fexpand_file_name (filename, Qnil);

#endif

  GCPRO2 (insdef, default_filename);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch, insdef1,
			  Qfile_name_history, default_filename, Qnil);
  /* If Fcompleting_read returned the default string itself
     (rather than a new string with the same contents),
     it has to mean that the user typed RET with the minibuffer empty.
     In that case, we really want to return ""
     so that commands such as set-visited-file-name can distinguish.  */

  GCPRO2 (insdef, defalt);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch,
			  insert_default_directory ? insdef : Qnil,
			  Qfile_name_history, Qnil, Qnil);

#ifdef VMS
  unbind_to (count, Qnil);
#endif