[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e638aaf6e8: * lisp/files.el (file-backup-file-names): Don't burp
From: |
Stefan Monnier |
Subject: |
master e638aaf6e8: * lisp/files.el (file-backup-file-names): Don't burp if dir doesn't exist |
Date: |
Tue, 27 Sep 2022 15:11:36 -0400 (EDT) |
branch: master
commit e638aaf6e82aa9eeb5e5723b995d3295b53fa6c9
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/files.el (file-backup-file-names): Don't burp if dir doesn't exist
---
lisp/files.el | 21 +++++++++++----------
1 file changed, 11 insertions(+), 10 deletions(-)
diff --git a/lisp/files.el b/lisp/files.el
index 1e1ec6127d..b953961aa1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6127,16 +6127,17 @@ recent files are first."
(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)))
+ (when (file-directory-p dir)
+ (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))))
(defun rename-uniquely ()
"Rename current buffer to a similar name not already taken.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e638aaf6e8: * lisp/files.el (file-backup-file-names): Don't burp if dir doesn't exist,
Stefan Monnier <=