From 730df8dbd56435eaf68d4ba29504a31e746c6ce3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 16 Jun 2006 15:14:40 +0000 Subject: [PATCH] (basic-save-buffer-2): For a new precious file, use the default modes in the return value. --- lisp/files.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 91f857dd2ec..3313f003d89 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3630,8 +3630,9 @@ Before and after saving the buffer, this function runs (set-visited-file-modtime old-modtime))) ;; Since we have created an entirely new file, ;; make sure it gets the right permission bits set. - (setq setmodes (or setmodes (cons (file-modes buffer-file-name) - buffer-file-name))) + (setq setmodes (or setmodes + (cons (or (file-modes buffer-file-name) umask) + buffer-file-name))) ;; We succeeded in writing the temp file, ;; so rename it. (rename-file tempname buffer-file-name t)) -- 2.11.4.GIT