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

* Native compiling do not target a directory with no write permission

Browse source 
* src/comp.c (Fcomp_el_to_eln_filename): Check for write
	permission while choosing the output directory in
	`comp-eln-load-path'.
This commit is contained in:
Andrea Corallo 2020-10-06 17:44:13 +02:00
parent 29f7024b6c
commit 4a1bb46260
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/comp.c
View file

@ -4080,8 +4080,22 @@ If BASE-DIR is nil use the first entry in `comp-eln-load-path'. */)
separator);
Lisp_Object hash = concat3 (path_hash, separator, content_hash);
filename = concat3 (filename, hash, build_string (NATIVE_ELISP_SUFFIX));
/* If base_dir was not specified search inside Vcomp_eln_load_path
for the first directory where we have write access. */
if (NILP (base_dir))
base_dir = XCAR (Vcomp_eln_load_path);
{
Lisp_Object eln_load_paths = Vcomp_eln_load_path;
FOR_EACH_TAIL (eln_load_paths)
if (!NILP (Ffile_writable_p (XCAR (eln_load_paths))))
{
base_dir = XCAR (eln_load_paths);
break;
}
/* If we can't find it return Nil. */
if (NILP (base_dir))
return Qnil;
}
if (!file_name_absolute_p (SSDATA (base_dir)))
base_dir = Fexpand_file_name (base_dir, Vinvocation_directory);