Commit d5ac5779 authored by Chong Yidong's avatar Chong Yidong
Browse files

(move-file-to-trash): Bind backup-directory-alist to nil before

uniquifying backup trash file name.
parent 7d96af1a
......@@ -5992,7 +5992,8 @@ Returns nil on success."
(and (file-exists-p new-fn)
;; make new-fn unique.
;; example: "~/.Trash/abc.txt" -> "~/.Trash/abc.txt.~1~"
(let ((version-control t))
(let ((version-control t)
(backup-directory-alist nil))
(setq new-fn (car (find-backup-file-name new-fn)))))
;; stop processing if fn is same or parent directory of trash-dir.
(and (string-match fn trash-dir)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment