mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-19 01:10:57 -08:00
Code Issues Projects Releases Wiki Activity

* Canonicalize filenames on Windows before hashing (bug#46256)

Browse source 
* src/comp.c (Fcomp_el_to_eln_filename): On Windowns
	canonicalize filenames before hashing.
This commit is contained in:
Andrea Corallo 2021-02-26 21:27:02 +01:00
parent 42fc752a14
commit 312deba530
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/comp.c
View file

@ -3983,6 +3983,10 @@ If BASE-DIR is nil use the first entry in `comp-eln-load-path'. */)
if (NILP (Ffile_exists_p (filename)))
xsignal1 (Qfile_missing, filename);
#ifdef WINDOWSNT
filename = Fw32_long_file_name (filename);
#endif
Lisp_Object content_hash = comp_hash_source_file (filename);
if (suffix_p (filename, ".gz"))
@ -4014,8 +4018,11 @@ If BASE-DIR is nil use the first entry in `comp-eln-load-path'. */)
Lisp_Object sys_re =
concat2 (build_string ("\\`[[:ascii:]]+"),
Fregexp_quote (build_string ("/" PATH_REL_LOADSEARCH "/")));
loadsearch_re_list =
list2 (sys_re, Fregexp_quote (build_string (PATH_DUMPLOADSEARCH "/")));
Lisp_Object dump_load_search = build_string (PATH_DUMPLOADSEARCH "/");
#ifdef WINDOWSNT
dump_load_search = Fw32_long_file_name (dump_load_search);
#endif
loadsearch_re_list = list2 (sys_re, Fregexp_quote (dump_load_search));
}
Lisp_Object lds_re_tail = loadsearch_re_list;