[elpa] externals/marginalia 5fcbed43d5: marginalia--library-name: Remove gz, el and elc extension

[ELPA Syncer]

branch: externals/marginalia
commit 5fcbed43d555929a6fd6427b3d8f1ed4773c0e6f
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    marginalia--library-name: Remove gz, el and elc extension
---
 marginalia.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 466fef9bf3..547cd4491a 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -975,9 +975,8 @@ These annotations are skipped for remote paths."
 
 (defun marginalia--library-name (file)
   "Get name of library FILE."
-  (string-remove-suffix
-   ".el" (string-remove-suffix
-          ".gz" (file-name-nondirectory file))))
+  (replace-regexp-in-string "\\(\\.gz\\|\\.elc?\\)+\\'" ""
+                            (file-name-nondirectory file)))
 
 (defun marginalia--library-kill ()
   "Kill temporary buffer."