comparison src/fileio.c @ 25006:c79dc141ef5a

(Fdo_auto_save): Handle the case that echo_area_message is set. (Finsert_file_contents): Prevent redisplay optimizations. (Fread_file_name): Call it. (report_file_error): Return void.

25005:95eace73d3ef

#ifndef HPUX9
#include <errnet.h>
#endif
#endif
#endif

#ifndef O_WRONLY
#define O_WRONLY 1
#endif

  /* Supposedly happens on VMS.  */
  if (! not_regular && st.st_size < 0)
    error ("File size is negative");

  if (!NILP (beg) || !NILP (end))
    if (!NILP (visit))
      error ("Attempt to visit less than an entire file");

  if (!NILP (beg))

{
  struct buffer *old = current_buffer, *b;
  Lisp_Object tail, buf;
  int auto_saved = 0;
  char *omessage = echo_area_glyphs;
  int omessage_length = echo_area_glyphs_length;
  int oldmultibyte = message_enable_multibyte;
  int do_handled_files;
  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;

  /* Prevent another auto save till enough input events come in.  */
  record_auto_save ();

  if (auto_saved && NILP (no_message))
    {
      if (omessage)
	{
	  sit_for (1, 0, 0, 0, 0);
	  message2 (omessage, omessage_length, oldmultibyte);
	}
      else
	message1 ("Auto-saving...done");
    }

  Vquit_flag = oquit;

  unbind_to (count, Qnil);
  return Qnil;
}

DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved,

#endif

  specbind (intern ("minibuffer-completing-file-name"), Qt);

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

  tem = Fsymbol_value (Qfile_name_history);
  if (CONSP (tem) && EQ (XCONS (tem)->car, val))
    replace_in_history = 1;

      tem = Fsymbol_value (Qfile_name_history);
      if (! CONSP (tem) || NILP (Fequal (XCONS (tem)->car, val1)))
	Fset (Qfile_name_history,
	      Fcons (val1, tem));
    }
  return val;
}

void
init_fileio_once ()
{
  /* Must be set before any path manipulation is performed.  */
  XSETFASTINT (Vdirectory_sep_char, '/');
}

void
syms_of_fileio ()
{
  Qexpand_file_name = intern ("expand-file-name");
  Qsubstitute_in_file_name = intern ("substitute-in-file-name");

25006:c79dc141ef5a

#ifndef HPUX9
#include <errnet.h>
#endif
#endif
#endif

#include "commands.h"
extern int use_dialog_box;

#ifndef O_WRONLY
#define O_WRONLY 1
#endif

  /* Supposedly happens on VMS.  */
  if (! not_regular && st.st_size < 0)
    error ("File size is negative");

  /* Prevent redisplay optimizations.  */
  current_buffer->clip_changed = 1;

  if (!NILP (beg) || !NILP (end))
    if (!NILP (visit))
      error ("Attempt to visit less than an entire file");

  if (!NILP (beg))

{
  struct buffer *old = current_buffer, *b;
  Lisp_Object tail, buf;
  int auto_saved = 0;
  char *omessage = echo_area_glyphs;
  Lisp_Object omessage_string = echo_area_message;
  int omessage_length = echo_area_glyphs_length;
  int oldmultibyte = message_enable_multibyte;
  int do_handled_files;
  Lisp_Object oquit;
  FILE *stream;
  Lisp_Object lispstream;
  int count = specpdl_ptr - specpdl;
  int *ptr;
  int orig_minibuffer_auto_raise = minibuffer_auto_raise;
  struct gcpro gcpro1;

  GCPRO1 (omessage_string);
  
  /* 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;

  /* Prevent another auto save till enough input events come in.  */
  record_auto_save ();

  if (auto_saved && NILP (no_message))
    {
      if (STRINGP (omessage_string))
	{
	  sit_for (1, 0, 0, 0, 0);
	  message3 (omessage_string, omessage_length, oldmultibyte);
	}
      else if (omessage)
	{
	  sit_for (1, 0, 0, 0, 0);
	  message2 (omessage, omessage_length, oldmultibyte);
	}
      else
	message1 ("Auto-saving...done");
    }

  Vquit_flag = oquit;

  UNGCPRO;
  unbind_to (count, Qnil);
  return Qnil;
}

DEFUN ("set-buffer-auto-saved", Fset_buffer_auto_saved,

#endif

  specbind (intern ("minibuffer-completing-file-name"), Qt);

  GCPRO2 (insdef, default_filename);
  
#ifdef USE_MOTIF
  if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
      && use_dialog_box
      && have_menus_p ())
    {
      val = Fx_file_dialog (prompt, dir, default_filename, mustmatch);
      add_to_history = 1;
    }
  else
#endif
    val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
			    dir, mustmatch, insdef,
			    Qfile_name_history, default_filename, Qnil);

  tem = Fsymbol_value (Qfile_name_history);
  if (CONSP (tem) && EQ (XCONS (tem)->car, val))
    replace_in_history = 1;

      tem = Fsymbol_value (Qfile_name_history);
      if (! CONSP (tem) || NILP (Fequal (XCONS (tem)->car, val1)))
	Fset (Qfile_name_history,
	      Fcons (val1, tem));
    }
    
  return val;
}


void
init_fileio_once ()
{
  /* Must be set before any path manipulation is performed.  */
  XSETFASTINT (Vdirectory_sep_char, '/');
}


void
syms_of_fileio ()
{
  Qexpand_file_name = intern ("expand-file-name");
  Qsubstitute_in_file_name = intern ("substitute-in-file-name");