diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-06-23 21:29:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-06-23 21:29:26 +0000 |
| commit | d550c42590e3d681eb71ceed8d30291f021d318b (patch) | |
| tree | 65b5fdb3bf5e40e41335e6685e026e2b5a6d3f79 | |
| parent | 7407e52e20de845f3c52b244df7d5fba01101e9b (diff) | |
| download | emacs-d550c42590e3d681eb71ceed8d30291f021d318b.tar.gz | |
(Frename_file): Preserve owner and group, if possible.
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 6 insertions, 0 deletions
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 |