From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 29 Dec 2003 19:14:03 +0000 (+0000)
Subject: (backup-buffer-copy): If MODES is nil, don't set modes.
X-Git-Tag: ttn-vms-21-2-B4~8086
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=147fbf703d1996d723523d849b402e792be0d066;p=emacs.git

(backup-buffer-copy): If MODES is nil, don't set modes.
---

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."
 	      (not (file-writable-p to-name)))
 	 (delete-file to-name))
      (copy-file from-name to-name t t)))
-  (set-file-modes to-name (logand modes #o1777)))
+  (and modes
+       (set-file-modes to-name (logand modes #o1777))))
 
 (defun file-name-sans-versions (name &optional keep-backup-version)
   "Return file NAME sans backup versions or strings.