diff options
| author | Andrea Corallo <akrl@sdf.org> | 2023-03-08 21:08:49 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2023-03-08 21:16:12 +0100 |
| commit | 8a2a554192a936257e88f12b4dfbd4f923d135f3 (patch) | |
| tree | 3b05865c728d716402b4aa3ce031d8223caa5a7c /lisp/emacs-lisp | |
| parent | 1862e7eb7efd721cd0f335d9ee0bb5e763cf5478 (diff) | |
| download | emacs-8a2a554192a936257e88f12b4dfbd4f923d135f3.tar.gz emacs-8a2a554192a936257e88f12b4dfbd4f923d135f3.tar.bz2 emacs-8a2a554192a936257e88f12b4dfbd4f923d135f3.zip | |
* 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'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |