(Fcopy_file): Use set_file_times, and check for the error return.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/fileio.c b/src/fileio.c
index 1274694c8ce..299eb2d2609 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"))