[elpa] externals/compat f56f014b06 2/5: Avoid using seq-filter in file-backup-file-names

[ELPA Syncer]

branch: externals/compat
commit f56f014b067c5ffe1a6bde1cff784525b08b5f61
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Avoid using seq-filter in file-backup-file-names
---
 compat-28.el | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/compat-28.el b/compat-28.el
index 70966389af..895136b106 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -683,18 +683,16 @@ recent files are first."
   ;; ordinary or numeric backups.  It might create a directory for
   ;; backups as a side-effect, according to `backup-directory-alist'.
   (let* ((filename (file-name-sans-versions
-                   (make-backup-file-name (expand-file-name filename))))
-         (dir (file-name-directory filename)))
-    (sort
-     (seq-filter
-      (lambda (candidate)
-        (and (backup-file-name-p candidate)
-             (string= (file-name-sans-versions candidate) filename)))
-      (mapcar
-       (lambda (file)
-         (concat dir file))
-       (file-name-all-completions (file-name-nondirectory filename) dir)))
-     #'file-newer-than-file-p)))
+                    (make-backup-file-name (expand-file-name filename))))
+         (dir (file-name-directory filename))
+         files)
+    (dolist (file (file-name-all-completions
+                   (file-name-nondirectory filename) dir))
+      (let ((candidate (concat dir file)))
+        (when (and (backup-file-name-p candidate)
+                   (string= (file-name-sans-versions candidate) filename))
+          (push candidate files))))
+    (sort files #'file-newer-than-file-p)))
 
 ;;;; Defined in minibuffer.el