From aabda4263bc2000a69e61e93a232e71f8afedec9 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 15 Mar 2021 16:56:08 +0200 Subject: 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) --- lisp/emacs-lisp/comp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp/comp.el') diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 97efd1ab0c7..5a4a2f6ef15 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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) -- cgit v1.2.3