diff options
| author | Andrea Corallo <akrl@sdf.org> | 2023-02-20 21:03:58 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2023-02-20 21:16:04 +0100 |
| commit | 5d0b45cd67b383bc777dcf7589517e51e58f5a21 (patch) | |
| tree | 34accb0558716b4bf52baff44e143aa1b431116a /lisp/emacs-lisp | |
| parent | 88ee92e61d786586064f3792b9d0be2dee6eb30c (diff) | |
| download | emacs-5d0b45cd67b383bc777dcf7589517e51e58f5a21.tar.gz | |
Make the native compiler always use `make-temp-file' for temporary files
* src/comp.c (CALL4I): Define macro.
(Fcomp__compile_ctxt_to_file): Use `make-temp-file' instead of
`make-temp-file-internal'.
* lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Likewise.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index a2bad6ce6a8..a0b18ea864f 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3813,8 +3813,8 @@ Return the trampoline if found or nil otherwise." ;; found. finally (cl-return (expand-file-name - (make-temp-file-internal (file-name-sans-extension rel-filename) - 0 ".eln" nil) + (make-temp-file (file-name-sans-extension rel-filename) 0 ".eln" + nil) temporary-file-directory)))) (defun comp-trampoline-compile (subr-name) |