Commit 78c56e70 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(emerge-make-temp-file): Make sure file has proper

permissions from birth.
parent db7ae45b
2000-06-23 Gerd Moellmann <gerd@gnu.org>
* comint.el (comint-substitute-in-file-name): Call replace-match
with second and third arg t.
* cus-edit.el (custom-button-face, custom-button-pressed-face):
Specify foreground color.
......@@ -23,6 +26,11 @@
* pcomplete.el: New file.
2000-06-23 Paul Eggert <eggert@twinsun.com>
* emerge.el (emerge-make-temp-file): Make sure file has proper
permissions from birth.
2000-06-22 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (make-backup-file-name-1): On DOS/Windows, run the
......
......@@ -2907,8 +2907,12 @@ keymap. Leaves merge in fast mode."
;; 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment