diff options
author | Karl Heuer <[email protected]> | 1994-09-18 19:17:01 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1994-09-18 19:17:01 +0000 |
commit | d630361111ed550290105a55d82f9fb7812e0b36 (patch) | |
tree | 82e7fd1a21a8f369ecaf2902d210e7030eef0bd9 | |
parent | c0c4505967b4ba8e0598b002dc6163dff5cadf2e (diff) |
(Fcopy_file): Use set_file_times, and check for the error return.
-rw-r--r-- | src/fileio.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index 1274694c8c..299eb2d260 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1836,7 +1836,8 @@ A prefix arg makes KEEP-TIME non-nil.") EMACS_TIME atime, mtime; EMACS_SET_SECS_USECS (atime, st.st_atime, 0); EMACS_SET_SECS_USECS (mtime, st.st_mtime, 0); - EMACS_SET_UTIMES (XSTRING (newname)->data, atime, mtime); + if (set_file_times (XSTRING (newname)->data, atime, mtime)) + report_file_error ("I/O error", Fcons (newname, Qnil)); } #ifdef APOLLO if (!egetenv ("USE_DOMAIN_ACLS")) |