mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(vc-delete-file): Bound default-directory before calling

Browse source 
the backend.
This commit is contained in:
Dan Nicolaescu 2008-06-13 14:40:57 +00:00
parent 6fe9826d75
commit 05fae1be0c
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc.el
View file

@ -2484,7 +2484,10 @@ backend to NEW-BACKEND, and unregister FILE from the current backend.
(with-current-buffer (or buf (find-file-noselect file))
(let ((backup-inhibited nil))
(backup-buffer))))
(vc-call-backend backend 'delete-file file)
;; Bind `default-directory' so that the command that the backend
;; runs to remove the file is invoked in the correct context.
(let ((default-directory (file-name-directory file)))
(vc-call-backend backend 'delete-file file))
;; If the backend hasn't deleted the file itself, let's do it for him.
(when (file-exists-p file) (delete-file file))
;; Forget what VC knew about the file.