[elpa] externals/xeft 9bf39a6b02 1/2: Don't trim "version strings" from file extensions (issue#24)

[ELPA Syncer]

branch: externals/xeft
commit 9bf39a6b028f999064dbb0c21766baa5d7f1521a
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Don't trim "version strings" from file extensions (issue#24)
    
    * xeft.el (xeft--file-name-extension): New function.
    (xeft-default-file-filter): Use xeft--file-name-extension.
---
 xeft.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/xeft.el b/xeft.el
index 2af36e59b8..e083302176 100644
--- a/xeft.el
+++ b/xeft.el
@@ -697,6 +697,15 @@ The score is the number of search phrases that appears in 
TITLE."
   (interactive)
   (xeft-refresh t))
 
+(defun xeft--file-name-extension (path)
+  "Return the extension part of PATH.
+This differs from ‘file-name-extension’ in that it doesn’t remove
+trailing \"version strings\"."
+  (let ((filename (file-name-nondirectory path)))
+    (when (string-match (rx (not ".") "." (group (* (not "."))) eos)
+                        filename)
+      (match-string 1 filename))))
+
 (defun xeft-default-file-filter (file)
   "Return nil if FILE should be ignored.
 
@@ -706,7 +715,7 @@ directories, dot files, and files matched by
   (and (file-regular-p file)
        (not (string-prefix-p
              "." (file-name-base file)))
-       (not (member (file-name-extension file)
+       (not (member (xeft--file-name-extension file)
                     xeft-ignore-extension))))
 
 (defun xeft-default-directory-filter (dir)