[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 49683652f8: Further locate-file fixes on nativecomp
From: |
Lars Ingebrigtsen |
Subject: |
master 49683652f8: Further locate-file fixes on nativecomp |
Date: |
Sat, 12 Mar 2022 16:54:47 -0500 (EST) |
branch: master
commit 49683652f8b7f3680b3bc76cfee39be0b8efd524
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Further locate-file fixes on nativecomp
* lisp/files.el (locate-file): Fix up previous locate-file change
-- don't unconditionally return .elc on nativecomp.
---
lisp/files.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/files.el b/lisp/files.el
index 327375ddaa..7be93662b1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -996,7 +996,8 @@ one or more of those symbols."
;; return here (if it exists).
(let* ((el (gethash (file-name-nondirectory file) comp-eln-to-el-h))
(elc (replace-regexp-in-string "\\.el\\'" ".elc" el)))
- (if (file-exists-p elc)
+ (if (and (member ".elc" suffixes)
+ (file-exists-p elc))
elc
el))
file)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 49683652f8: Further locate-file fixes on nativecomp,
Lars Ingebrigtsen <=