branch: externals/compat
commit f56f014b067c5ffe1a6bde1cff784525b08b5f61
Author: Philip Kaludercic <[email protected]>
Commit: Philip Kaludercic <[email protected]>
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
