Prefer expand-file-name to concat in native-compilation code
* lisp/emacs-lisp/comp.el (comp-eln-load-path-eff): * src/comp.c (Fcomp_el_to_eln_filename) (eln_load_path_final_clean_up): Prefer expand-file-name to concat. (Bug#43725)
This commit is contained in:
parent
5e4ec4d3c9
commit
aabda4263b
2 changed files with 7 additions and 7 deletions
|
@ -3691,9 +3691,9 @@ Prepare every function for final compilation and drive the C back-end."
|
|||
"Return a list of effective eln load directories.
|
||||
Account for `comp-load-path' and `comp-native-version-dir'."
|
||||
(mapcar (lambda (dir)
|
||||
(concat (file-name-as-directory
|
||||
(expand-file-name dir invocation-directory))
|
||||
comp-native-version-dir))
|
||||
(expand-file-name comp-native-version-dir
|
||||
(file-name-as-directory
|
||||
(expand-file-name dir invocation-directory))))
|
||||
comp-eln-load-path))
|
||||
|
||||
(defun comp-trampoline-filename (subr-name)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue