Mercurial > emacs
diff src/fileio.c @ 65513:81577dcc6e9b
(write_region_inhibit_fsync): New variable.
(Fwrite_region): Use it to skip call to fsync.
(syms_of_fileio): Initialize it.
author | Romain Francoise <romain@orebokech.com> |
---|---|
date | Wed, 14 Sep 2005 20:19:39 +0000 |
parents | 85da96d43f19 |
children | da6fcded2062 d84f940244dc |
line wrap: on
line diff
--- a/src/fileio.c Wed Sep 14 16:19:18 2005 +0000 +++ b/src/fileio.c Wed Sep 14 20:19:39 2005 +0000 @@ -225,6 +225,11 @@ expanding file names. This can be bound to / or \. */ Lisp_Object Vdirectory_sep_char; +#ifdef HAVE_FSYNC +/* Nonzero means skip the call to fsync in Fwrite-region. */ +int write_region_inhibit_fsync; +#endif + extern Lisp_Object Vuser_login_name; #ifdef WINDOWSNT @@ -5296,7 +5301,7 @@ Disk full in NFS may be reported here. */ /* mib says that closing the file will try to write as fast as NFS can do it, and that means the fsync here is not crucial for autosave files. */ - if (!auto_saving && fsync (desc) < 0) + if (!auto_saving && !write_region_inhibit_fsync && fsync (desc) < 0) { /* If fsync fails with EINTR, don't treat that as serious. */ if (errno != EINTR) @@ -6742,6 +6747,13 @@ a non-nil value. */); Vauto_save_list_file_name = Qnil; +#ifdef HAVE_FSYNC + DEFVAR_BOOL ("write-region-inhibit-fsync", &write_region_inhibit_fsync, + doc: /* *Non-nil means don't call fsync after saving files. +Enabling this variable may result in data loss! */); + write_region_inhibit_fsync = 0; +#endif + defsubr (&Sfind_file_name_handler); defsubr (&Sfile_name_directory); defsubr (&Sfile_name_nondirectory);