diff options
| author | Richard M. Stallman | 2003-12-29 19:14:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-12-29 19:14:03 +0000 |
| commit | 147fbf703d1996d723523d849b402e792be0d066 (patch) | |
| tree | 1d63c2d2630a59ea12dad69313281a59f029d208 | |
| parent | f0d5dc24425172267cfbadf135dcfa0838a6d874 (diff) | |
| download | emacs-147fbf703d1996d723523d849b402e792be0d066.tar.gz emacs-147fbf703d1996d723523d849b402e792be0d066.zip | |
(backup-buffer-copy): If MODES is nil, don't set modes.
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index ce4d67d33e4..4983b1287e8 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2552,7 +2552,8 @@ BACKUPNAME is the backup file name, which is the old file renamed." | |||
| 2552 | (not (file-writable-p to-name))) | 2552 | (not (file-writable-p to-name))) |
| 2553 | (delete-file to-name)) | 2553 | (delete-file to-name)) |
| 2554 | (copy-file from-name to-name t t))) | 2554 | (copy-file from-name to-name t t))) |
| 2555 | (set-file-modes to-name (logand modes #o1777))) | 2555 | (and modes |
| 2556 | (set-file-modes to-name (logand modes #o1777)))) | ||
| 2556 | 2557 | ||
| 2557 | (defun file-name-sans-versions (name &optional keep-backup-version) | 2558 | (defun file-name-sans-versions (name &optional keep-backup-version) |
| 2558 | "Return file NAME sans backup versions or strings. | 2559 | "Return file NAME sans backup versions or strings. |