From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Jun 2005 21:29:26 +0000 (+0000)
Subject: (Frename_file): Preserve owner and group, if possible.
X-Git-Tag: emacs-pretest-22.0.90~8684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d550c42590e3d681eb71ceed8d30291f021d318b;p=emacs.git

(Frename_file): Preserve owner and group, if possible.
---

diff --git a/src/fileio.c b/src/fileio.c
index 537b7f4d10d..6bdc030bc6c 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2775,6 +2775,7 @@ This is what happens in interactive use with M-x.  */)
     {
       if (errno == EXDEV)
 	{
+	  struct stat data;
 #ifdef S_IFLNK
           symlink_target = Ffile_symlink_p (file);
           if (! NILP (symlink_target))
@@ -2787,6 +2788,11 @@ This is what happens in interactive use with M-x.  */)
                            so don't have copy-file prompt again.  */
                         NILP (ok_if_already_exists) ? Qnil : Qt,
 			Qt, Qnil);
+
+	  /* Preserve owner and group, if possible (if we are root).  */
+	  if (stat (SDATA (encoded_file), &data) >= 0)
+	    chown (SDATA (encoded_file), data.st_uid, data.st_gid);
+
 	  Fdelete_file (file);
 	}
       else