comparison src/fileio.c @ 18861:ed1871a409c8

(Finsert_file_contents) [DOS_NT]: Use the coding system to determine buffer_file_type. (Fwrite_region): Only use Qbuffer_file_coding_system before checking file-coding-system-alist if non-nil. (Fwrite_region) [DOS_NT]: Delete conditional code.

18860:f55d91d45bde

Lisp_Object Vdirectory_sep_char;

extern Lisp_Object Vuser_login_name;

extern int minibuf_level;

/* These variables describe handlers that have "already" had a chance
   to handle the current operation.

   Vinhibit_file_name_handlers is a list of file name handlers.

	val = CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil;
      }
    setup_coding_system (Fcheck_coding_system (val), &coding);
  }

  fd = -1;

#ifndef APOLLO
  if (stat (XSTRING (filename)->data, &st) < 0)
#else

    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)
	     || !NILP (Flocal_variable_if_set_p (Qbuffer_file_coding_system,
						 Qnil)))
      val = Fsymbol_value (Qbuffer_file_coding_system);
    else
      {
	Lisp_Object args[7], coding_systems;

	       : 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;
#ifdef DOS_NT
    if (!NILP (current_buffer->buffer_file_type))
      coding.eol_type = CODING_EOL_LF;
#endif /* DOS_NT */
  }

  filename = Fexpand_file_name (filename, Qnil);
  if (STRINGP (visit))
    visit_file = Fexpand_file_name (visit, Qnil);

    fclose ((FILE *) (XFASTINT (XCONS (stream)->car) << 16
		      | XFASTINT (XCONS (stream)->cdr)));
  return Qnil;
}

DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "",
  "Auto-save all buffers that need it.\n\
This is all buffers that have auto-saving enabled\n\
and are changed since last auto-saved.\n\
Auto-saving writes the buffer into a file\n\

  Lisp_Object oquit;
  FILE *stream;
  Lisp_Object lispstream;
  int count = specpdl_ptr - specpdl;
  int *ptr;

  /* Ordinarily don't quit within this function,
     but don't make it impossible to quit (in case we get hung in I/O).  */
  oquit = Vquit_flag;
  Vquit_flag = Qnil;

      stream = NULL;
      lispstream = Qnil;
    }

  record_unwind_protect (do_auto_save_unwind, lispstream);

  auto_saving = 1;

  /* First, save all files which don't have handlers.  If Emacs is
     crashing, the handlers may tweak what is causing Emacs to crash
     in the first place, and it would be a shame if Emacs failed to

		/* These messages are frequent and annoying for `*mail*'.  */
		&& !EQ (b->filename, Qnil)
		&& NILP (no_message))
	      {
		/* It has shrunk too much; turn off auto-saving here.  */
		message ("Buffer %s has shrunk a lot; auto save turned off there",
			 XSTRING (b->name)->data);
		/* Turn off auto-saving until there's a real save,
		   and prevent any more warnings.  */
		XSETINT (b->save_length, -1);
		Fsleep_for (make_number (1), Qnil);
		continue;

  GCPRO2 (insdef, default_filename);
  val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			  dir, mustmatch, insdef1,
			  Qfile_name_history, default_filename);

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

18861:ed1871a409c8

Lisp_Object Vdirectory_sep_char;

extern Lisp_Object Vuser_login_name;

extern int minibuf_level;

extern int minibuffer_auto_raise;

/* These variables describe handlers that have "already" had a chance
   to handle the current operation.

   Vinhibit_file_name_handlers is a list of file name handlers.

	val = CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil;
      }
    setup_coding_system (Fcheck_coding_system (val), &coding);
  }

#ifdef DOS_NT
  /* Use the conversion type to determine buffer-file-type
     (find-buffer-file-type is now used to help determine the
     conversion).  */
  if (coding.type == coding_type_no_conversion)
    current_buffer->buffer_file_type = Qt;
  else
    current_buffer->buffer_file_type = Qnil;
#endif

  fd = -1;

#ifndef APOLLO
  if (stat (XSTRING (filename)->data, &st) < 0)
#else

    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) ||
	     ! NILP (Fsymbol_value (Qbuffer_file_coding_system)))
      val = Fsymbol_value (Qbuffer_file_coding_system);
    else
      {
	Lisp_Object args[7], coding_systems;

	       : 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);
  if (STRINGP (visit))
    visit_file = Fexpand_file_name (visit, Qnil);

    fclose ((FILE *) (XFASTINT (XCONS (stream)->car) << 16
		      | XFASTINT (XCONS (stream)->cdr)));
  return Qnil;
}

static Lisp_Object
do_auto_save_unwind_1 (value)  /* used as unwind-protect function */
     Lisp_Object value;
{
  minibuffer_auto_raise = XINT (value);
  return Qnil;
}

DEFUN ("do-auto-save", Fdo_auto_save, Sdo_auto_save, 0, 2, "",
  "Auto-save all buffers that need it.\n\
This is all buffers that have auto-saving enabled\n\
and are changed since last auto-saved.\n\
Auto-saving writes the buffer into a file\n\

  Lisp_Object oquit;
  FILE *stream;
  Lisp_Object lispstream;
  int count = specpdl_ptr - specpdl;
  int *ptr;
  int orig_minibuffer_auto_raise = minibuffer_auto_raise;

  /* Ordinarily don't quit within this function,
     but don't make it impossible to quit (in case we get hung in I/O).  */
  oquit = Vquit_flag;
  Vquit_flag = Qnil;

      stream = NULL;
      lispstream = Qnil;
    }

  record_unwind_protect (do_auto_save_unwind, lispstream);
  record_unwind_protect (do_auto_save_unwind_1,
			 make_number (minibuffer_auto_raise));
  minibuffer_auto_raise = 0;
  auto_saving = 1;

  /* First, save all files which don't have handlers.  If Emacs is
     crashing, the handlers may tweak what is causing Emacs to crash
     in the first place, and it would be a shame if Emacs failed to

		/* These messages are frequent and annoying for `*mail*'.  */
		&& !EQ (b->filename, Qnil)
		&& NILP (no_message))
	      {
		/* It has shrunk too much; turn off auto-saving here.  */
		minibuffer_auto_raise = orig_minibuffer_auto_raise;
		message ("Buffer %s has shrunk a lot; auto save turned off there",
			 XSTRING (b->name)->data);
		minibuffer_auto_raise = 0;
		/* Turn off auto-saving until there's a real save,
		   and prevent any more warnings.  */
		XSETINT (b->save_length, -1);
		Fsleep_for (make_number (1), Qnil);
		continue;

  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.  */
  if (EQ (val, default_filename))
    val = build_string ("");

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