From 68df9e5953c881d390fdb14fc774c3cd45060ba4 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 21 Feb 2023 14:58:28 +0100
Subject: * lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Improve
5d0b45cd67b
---
lisp/emacs-lisp/comp.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
(limited to 'lisp/emacs-lisp/comp.el')
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a0b18ea864f..046d169f00f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3812,10 +3812,8 @@ Return the trampoline if found or nil otherwise."
;; Default to some temporary directory if no better option was
;; found.
finally (cl-return
- (expand-file-name
- (make-temp-file (file-name-sans-extension rel-filename) 0 ".eln"
- nil)
- temporary-file-directory))))
+ (make-temp-file (file-name-sans-extension rel-filename) nil ".eln"
+ nil))))
(defun comp-trampoline-compile (subr-name)
"Synthesize compile and return a trampoline for SUBR-NAME."
--
cgit v1.2.3