# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785091181 0
# Node ID e797886a4244cd0ffe2d26fa8f1f73fb5910c0a6
# Parent  fa912a906a6fad23605b3ff5c630cbb52a06079a
(backup-buffer): Use file-ownership-preserved-p.

diff -r fa912a906a6f -r e797886a4244 lisp/files.el
--- a/lisp/files.el	Thu Nov 17 16:50:21 1994 +0000
+++ b/lisp/files.el	Thu Nov 17 16:53:01 1994 +0000
@@ -1371,7 +1371,7 @@
 			  (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