diff options
| author | Richard M. Stallman | 1994-11-17 16:53:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-17 16:53:01 +0000 |
| commit | dc554c3acc16e3aa7435c018a23a3a94bf50902e (patch) | |
| tree | 943a267ef65d621b00312ed4dac548125f62e510 | |
| parent | 91f1c349d41f3323aebc45962804a2740791636a (diff) | |
| download | emacs-dc554c3acc16e3aa7435c018a23a3a94bf50902e.tar.gz emacs-dc554c3acc16e3aa7435c018a23a3a94bf50902e.zip | |
(backup-buffer): Use file-ownership-preserved-p.
| -rw-r--r-- | lisp/files.el | 2 |
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 |