mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

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

Browse Source 
uniquifying backup trash file name.
This commit is contained in:
Chong Yidong 2008-12-28 03:24:53 +00:00
parent 7d96af1ab4
commit d5ac5779a4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/files.el
View File

@ -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)