feature/native-comp 2239cc8 4/4: Extend find-library-suffixes and find-library-name for eln support

[Andrea Corallo]

branch: feature/native-comp
commit 2239cc81b72e0c066d83271f5c9b4d8097b1ce0d
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    Extend find-library-suffixes and find-library-name for eln support
---
 lisp/emacs-lisp/find-func.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index 167ead3..86b5e54 100644
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -167,7 +167,8 @@ See the functions `find-function' and `find-variable'."
 (defun find-library-suffixes ()
   (let ((suffixes nil))
     (dolist (suffix (get-load-suffixes) (nreverse suffixes))
-      (unless (string-match "elc" suffix) (push suffix suffixes)))))
+      (unless (string-match "el[cn]" suffix)
+        (push suffix suffixes)))))
 
 (defun find-library--load-name (library)
   (let ((name library))
@@ -183,7 +184,7 @@ See the functions `find-function' and `find-variable'."
 LIBRARY should be a string (the name of the library)."
   ;; If the library is byte-compiled, try to find a source library by
   ;; the same name.
-  (when (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library)
+  (when (string-match "\\.el\\([cn]\\(\\..*\\)?\\)\\'" library)
     (setq library (replace-match "" t t library)))
   (or
    (locate-file library