From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 17 Nov 1994 16:53:01 +0000 (+0000)
Subject: (backup-buffer): Use file-ownership-preserved-p.
X-Git-Tag: emacs-19.34~5860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc554c3acc16e3aa7435c018a23a3a94bf50902e;p=emacs.git

(backup-buffer): Use file-ownership-preserved-p.
---

diff --git a/lisp/files.el b/lisp/files.el
index 6037b19435d..e226461bd83 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1371,7 +1371,7 @@ the modes of the new file to agree with the old modes."
 			  (and backup-by-copying-when-mismatch
 			       (let ((attr (file-attributes real-file-name)))
 				 (or (nth 9 attr)
-				     (/= (nth 2 attr) (user-uid))))))
+				     (not (file-ownership-preserved-p real-file-name))))))
 		      (condition-case ()
 			  (copy-file real-file-name backupname t t)
 			(file-error