From 8a2a554192a936257e88f12b4dfbd4f923d135f3 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 8 Mar 2023 21:08:49 +0100 Subject: [PATCH] * 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 -- 2.39.2