diff options
| author | Mike Kupfer <mkupfer@alum.berkeley.edu> | 2022-10-30 10:31:11 -0700 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-11-24 13:16:48 +0200 |
| commit | 95d827f21ef7bc3ed91335a6418e17fbb4ed5c63 (patch) | |
| tree | f761c7c690d2605c0f1a9034b488515b5e5c2e51 /lisp/files.el | |
| parent | 3208a42c47c4f98cb03c4b15164ca83113244b40 (diff) | |
| download | emacs-95d827f21ef7bc3ed91335a6418e17fbb4ed5c63.tar.gz emacs-95d827f21ef7bc3ed91335a6418e17fbb4ed5c63.tar.bz2 emacs-95d827f21ef7bc3ed91335a6418e17fbb4ed5c63.zip | |
Fix cross-filesystem directory trashing (Bug#58721)
* lisp/files.el (move-file-to-trash): When trashing a directory with
the same name as something that's already in the trash, copy it into
the trash folder and then delete it, rather than using rename-file.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index b947451369c..127cf77240f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -8596,10 +8596,27 @@ Otherwise, trash FILENAME using the freedesktop.org conventions, (setq files-base (substring (file-name-nondirectory info-fn) 0 (- (length ".trashinfo")))) (write-region nil nil info-fn nil 'quiet info-fn))) - ;; Finally, try to move the file to the trashcan. + ;; Finally, try to move the item to the trashcan. If + ;; it's a file, just move it. Things are more + ;; complicated for directories. If the target + ;; directory already exists (due to uniquification) + ;; and the trash directory is in a different + ;; filesystem, rename-file will error out, even when + ;; 'overwrite' is non-nil. Rather than worry about + ;; whether we're crossing filesystems, just check if + ;; we've moving a directory and the target directory + ;; already exists. That handles both the + ;; same-filesystem and cross-filesystem cases. (let ((delete-by-moving-to-trash nil) (new-fn (file-name-concat trash-files-dir files-base))) - (rename-file fn new-fn overwrite))))))))) + (if (or (not is-directory) + (not (file-exists-p new-fn))) + (rename-file fn new-fn overwrite) + (copy-directory fn + (file-name-as-directory new-fn) + t nil t) + (delete-directory fn t)))))))))) + (defsubst file-attribute-type (attributes) |