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 <>
* 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 <>
* emerge.el (emerge-make-temp-file): Make sure file has proper
permissions from birth.
2000-06-22 Eli Zaretskii <>
* 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)))
(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))
;;; 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