# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1072725243 0
# Node ID 9bdc3d1a6a5ff3e65865dc9856cc6cad235a94cb
# Parent  7e645ea92195783268c5c8ec54d75d97de21e2ed
(backup-buffer-copy): If MODES is nil, don't set modes.

diff -r 7e645ea92195 -r 9bdc3d1a6a5f lisp/files.el
--- a/lisp/files.el	Mon Dec 29 19:13:28 2003 +0000
+++ b/lisp/files.el	Mon Dec 29 19:14:03 2003 +0000
@@ -2552,7 +2552,8 @@
 	      (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.