(vc-svn-parse-status): Accept ?D for removed files (bug#3213).
This commit is contained in:
parent
97355c3832
commit
e6c01f094d
2 changed files with 6 additions and 2 deletions
|
@ -1,3 +1,7 @@
|
|||
2009-05-05 Bob Rogers <rogers-emacs@rgrjr.dyndns.org> (tiny change)
|
||||
|
||||
* vc-svn.el (vc-svn-parse-status): ?D is for removed files (bug#3213).
|
||||
|
||||
2009-05-05 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* vc.el (vc-delete-file): Add autoload cookie (bug#3209).
|
||||
|
|
|
@ -157,9 +157,9 @@ want to force an empty list of arguments, use t."
|
|||
(defun vc-svn-after-dir-status (callback &optional remote)
|
||||
(let ((state-map '((?A . added)
|
||||
(?C . conflict)
|
||||
(?D . removed)
|
||||
(?I . ignored)
|
||||
(?M . edited)
|
||||
(?D . removed)
|
||||
(?R . removed)
|
||||
(?? . unregistered)
|
||||
;; This is what vc-svn-parse-status does.
|
||||
|
@ -662,7 +662,7 @@ information about FILENAME and return its status."
|
|||
'edited))
|
||||
((eq status ?I)
|
||||
(vc-file-setprop file 'vc-state 'ignored))
|
||||
((eq status ?R)
|
||||
((memq status '(?D ?R))
|
||||
(vc-file-setprop file 'vc-state 'removed))
|
||||
(t 'edited)))))
|
||||
(when filename (vc-file-getprop filename 'vc-state))))
|
||||
|
|
Loading…
Add table
Reference in a new issue