comparison src/fileio.c @ 18744:1718bdf566fd

(Fwrite_region): Fix call2 argument. (Fread_file_name): Convert Fcons argument to Lisp_Integer.

18743:1c1a002339a5

/* File IO for GNU Emacs.
   Copyright (C) 1985,86,87,88,93,94,95,96 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

  if (!auto_saving)
    {
      /* If we've locked this file for some other buffer,
	 query before proceeding.  */
      if (!visiting && EQ (Ffile_locked_p (lockname), Qt))
	call2 (intern ("ask-user-about-lock"), fn, Vuser_login_name);

      lock_file (lockname);
    }
#endif /* CLASH_DETECTION */

	insdef1 = double_dollars (insdef);
    }
  else if (STRINGP (initial))
    {
      insdef = initial;
      insdef1 = Fcons (double_dollars (insdef), 0);
    }
  else
    insdef = Qnil, insdef1 = Qnil;

#ifdef VMS

18744:1718bdf566fd

/* File IO for GNU Emacs.
   Copyright (C) 1985,86,87,88,93,94,95,96,1997 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by

  if (!auto_saving)
    {
      /* If we've locked this file for some other buffer,
	 query before proceeding.  */
      if (!visiting && EQ (Ffile_locked_p (lockname), Qt))
	call2 (intern ("ask-user-about-lock"), filename, Vuser_login_name);

      lock_file (lockname);
    }
#endif /* CLASH_DETECTION */

	insdef1 = double_dollars (insdef);
    }
  else if (STRINGP (initial))
    {
      insdef = initial;
      insdef1 = Fcons (double_dollars (insdef), make_number (0));
    }
  else
    insdef = Qnil, insdef1 = Qnil;

#ifdef VMS