# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 961743934 0
# Node ID 1c158fa0f918fe7173f2a7ecd0cd02492e590813
# Parent  53bc9bb1f0b883ce176195db5db0ae69642d9ffa
(emerge-make-temp-file): Make sure file has proper
permissions from birth.

diff -r 53bc9bb1f0b8 -r 1c158fa0f918 lisp/emerge.el
--- a/lisp/emerge.el	Fri Jun 23 07:05:13 2000 +0000
+++ b/lisp/emerge.el	Fri Jun 23 07:05:34 2000 +0000
@@ -2907,8 +2907,12 @@
 ;; Make a temporary file that only we have access to.
 ;; PREFIX is appended to emerge-temp-file-prefix to make the filename prefix.
 (defun emerge-make-temp-file (prefix)
-  (let ((f (make-temp-file (concat emerge-temp-file-prefix prefix))))
-    (set-file-modes f emerge-temp-file-mode)
+  (let (f (old-modes (default-file-modes)))
+    (unwind-protect
+	(progn
+	  (set-default-file-modes emerge-temp-file-mode)
+	  (setq f (make-temp-file (concat emerge-temp-file-prefix prefix))))
+      (set-default-file-modes old-modes))
     f))
 
 ;;; Functions that query the user before he can write out the current buffer.