From 2239cc81b72e0c066d83271f5c9b4d8097b1ce0d Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Thu, 2 Jan 2020 22:55:38 +0100 Subject: [PATCH] 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 167ead3ce02..86b5e5456f0 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 -- 2.39.5