* 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.

diff --git a/lisp/files.el b/lisp/files.el
index 60329f1..88150a7 100644 (file)
--- 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))