aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-11-17 16:53:01 +0000
committerRichard M. Stallman1994-11-17 16:53:01 +0000
commitdc554c3acc16e3aa7435c018a23a3a94bf50902e (patch)
tree943a267ef65d621b00312ed4dac548125f62e510
parent91f1c349d41f3323aebc45962804a2740791636a (diff)
downloademacs-dc554c3acc16e3aa7435c018a23a3a94bf50902e.tar.gz
emacs-dc554c3acc16e3aa7435c018a23a3a94bf50902e.zip
(backup-buffer): Use file-ownership-preserved-p.
-rw-r--r--lisp/files.el2
1 files changed, 1 insertions, 1 deletions
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."
1371 (and backup-by-copying-when-mismatch 1371 (and backup-by-copying-when-mismatch
1372 (let ((attr (file-attributes real-file-name))) 1372 (let ((attr (file-attributes real-file-name)))
1373 (or (nth 9 attr) 1373 (or (nth 9 attr)
1374 (/= (nth 2 attr) (user-uid)))))) 1374 (not (file-ownership-preserved-p real-file-name))))))
1375 (condition-case () 1375 (condition-case ()
1376 (copy-file real-file-name backupname t t) 1376 (copy-file real-file-name backupname t t)
1377 (file-error 1377 (file-error