diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 1999-10-15 16:03:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 1999-10-15 16:03:59 +0000 |
| commit | 767d12f23e80ebf247671e277f897c468f659b03 (patch) | |
| tree | 5fd077bc47f3965d445717ca3a23463228416078 /lisp/emerge.el | |
| parent | 93c8d183eee3a992940ebae612cc90eea1095ba9 (diff) | |
| download | emacs-767d12f23e80ebf247671e277f897c468f659b03.tar.gz | |
Use make-temp-file.
Diffstat (limited to 'lisp/emerge.el')
| -rw-r--r-- | lisp/emerge.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emerge.el b/lisp/emerge.el index 023727e26b2..b876c1c1192 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -2907,9 +2907,7 @@ 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-name (concat emerge-temp-file-prefix prefix)))) - ;; create the file - (write-region (point-min) (point-min) f nil 'no-message) + (let ((f (make-temp-file (concat emerge-temp-file-prefix prefix)))) (set-file-modes f emerge-temp-file-mode) f)) |