Mercurial > emacs
changeset 37292:80082652ed9f
(Fcopy_file) [WINDOWSNT]: Use CopyFile.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 10 Apr 2001 12:15:53 +0000 |
| parents | 83dd2eb5365f |
| children | bcd28a0e934a |
| files | src/fileio.c |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Tue Apr 10 12:15:25 2001 +0000 +++ b/src/fileio.c Tue Apr 10 12:15:53 2001 +0000 @@ -2334,6 +2334,22 @@ else if (stat (XSTRING (encoded_newname)->data, &out_st) < 0) out_st.st_mode = 0; +#ifdef WINDOWSNT + if (!CopyFile (XSTRING (encoded_file)->data, + XSTRING (encoded_newname)->data, + FALSE)) + report_file_error ("Copying file", Fcons (file, Fcons (newname, Qnil))); + else if (NILP (keep_time)) + { + EMACS_TIME now; + EMACS_GET_TIME (now); + if (set_file_times (XSTRING (encoded_newname)->data, + now, now)) + Fsignal (Qfile_date_error, + Fcons (build_string ("Cannot set file date"), + Fcons (newname, Qnil))); + } +#else /* not WINDOWSNT */ ifd = emacs_open (XSTRING (encoded_file)->data, O_RDONLY, 0); if (ifd < 0) report_file_error ("Opening input file", Fcons (file, Qnil)); @@ -2423,6 +2439,7 @@ } emacs_close (ifd); +#endif /* WINDOWSNT */ /* Discard the unwind protects. */ specpdl_ptr = specpdl + count;