masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-05 03:39:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/comp.el (comp--trampoline-abs-filename): Improve 5d0b45cd67

Browse source
This commit is contained in:
Andrea Corallo 2023-02-21 14:58:28 +01:00
parent 06ba948416
commit 68df9e5953
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp.el
View file

@ -3812,10 +3812,8 @@ Return the trampoline if found or nil otherwise."
;; Default to some temporary directory if no better option was ;; Default to some temporary directory if no better option was
;; found. ;; found.
finally (cl-return finally (cl-return
(expand-file-name (make-temp-file (file-name-sans-extension rel-filename) nil ".eln"
(make-temp-file (file-name-sans-extension rel-filename) 0 ".eln" nil))))
nil)
temporary-file-directory))))
(defun comp-trampoline-compile (subr-name) (defun comp-trampoline-compile (subr-name)
"Synthesize compile and return a trampoline for SUBR-NAME." "Synthesize compile and return a trampoline for SUBR-NAME."