[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 8a2a554192a: * Make sure `default-directory' exists before spaw
From: |
Andrea Corallo |
Subject: |
emacs-29 8a2a554192a: * Make sure `default-directory' exists before spawning processes (bug#62004) |
Date: |
Wed, 8 Mar 2023 15:17:11 -0500 (EST) |
branch: emacs-29
commit 8a2a554192a936257e88f12b4dfbd4f923d135f3
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Make sure `default-directory' exists before spawning processes (bug#62004)
* lisp/emacs-lisp/comp.el (comp-final, comp-run-async-workers): Bind
`default-directory' to `invocation-directory'.
---
lisp/emacs-lisp/comp.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a1838b1abf2..283c00103b5 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -3726,7 +3726,8 @@ Prepare every function for final compilation and drive
the C back-end."
(temp-file (make-temp-file
(concat "emacs-int-comp-"
(file-name-base output) "-")
- nil ".el")))
+ nil ".el"))
+ (default-directory invocation-directory))
(with-temp-file temp-file
(insert ";; -*-coding: utf-8-emacs-unix; -*-\n")
(mapc (lambda (e)
@@ -4023,6 +4024,7 @@ display a message."
(comp-log "\n")
(mapc #'comp-log expr-strings)))
(load1 load)
+ (default-directory invocation-directory)
(process (make-process
:name (concat "Compiling: " source-file)
:buffer (with-current-buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 8a2a554192a: * Make sure `default-directory' exists before spawning processes (bug#62004),
Andrea Corallo <=