* files.el (basic-save-buffer): If file-precious-flag is set, and

	we write the buffer to a temp file and then rename it, don't
	neglect to set the new file's modes properly.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 60329f162b2..88150a7133b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1279,6 +1279,10 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
                            ;; If writing the temp file fails,
                            ;; delete the temp file.
                            (or succeed (delete-file tempname)))
+                         ;; Since we have created an entirely new file
+                         ;; and renamed it, make sure it gets the
+                         ;; right permission bits set.
+                         (setq setmodes (file-modes buffer-file-name))
                          ;; We succeeded in writing the temp file,
                          ;; so rename it.
                          (rename-file tempname buffer-file-name t))