From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 8 Mar 2023 20:08:49 +0000 (+0100)
Subject: * Make sure `default-directory' exists before spawning processes (bug#62004)
X-Git-Tag: emacs-29.0.90~219
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a2a554192a;p=emacs.git

* 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'.
---

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