master 49683652f8: Further locate-file fixes on nativecomp

[Lars Ingebrigtsen]

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)))