procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Make sure `default-directory' exists before spawning processes (bug#62004)

Browse source 
* lisp/emacs-lisp/comp.el (comp-final, comp-run-async-workers): Bind
`default-directory' to `invocation-directory'.
This commit is contained in:
Andrea Corallo 2023-03-08 21:08:49 +01:00
parent 1862e7eb7e
commit 8a2a554192
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3726,7 +3726,8 @@ Prepare every function for final compilation and drive the C back-end."
(temp-file (make-temp-file (temp-file (make-temp-file
(concat "emacs-int-comp-" (concat "emacs-int-comp-"
(file-name-base output) "-") (file-name-base output) "-")
nil ".el"))) nil ".el"))
(default-directory invocation-directory))
(with-temp-file temp-file (with-temp-file temp-file
(insert ";; -*-coding: utf-8-emacs-unix; -*-\n") (insert ";; -*-coding: utf-8-emacs-unix; -*-\n")
(mapc (lambda (e) (mapc (lambda (e)
@ -4023,6 +4024,7 @@ display a message."
(comp-log "\n") (comp-log "\n")
(mapc #'comp-log expr-strings))) (mapc #'comp-log expr-strings)))
(load1 load) (load1 load)
(default-directory invocation-directory)
(process (make-process (process (make-process
:name (concat "Compiling: " source-file) :name (concat "Compiling: " source-file)
:buffer (with-current-buffer :buffer (with-current-buffer