From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 18 Sep 1994 19:17:01 +0000 (+0000)
Subject: (Fcopy_file): Use set_file_times, and check for the error return.
X-Git-Tag: emacs-19.34~6971
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d630361111ed550290105a55d82f9fb7812e0b36;p=emacs.git

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

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"))