ryuslash/vc-p4
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* vc-p4.el (vc-p4-dir-status): Don't list up-to-date files.

Browse source 
[git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 7360]
This commit is contained in:
Magnus Henoch 2009-08-27 04:14:59 -08:00
parent 5051f6e818
commit 7292914d99
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
vc-p4.el
View file

@ -168,10 +168,11 @@ compare non-open files to the depot version."
(dolist (this-list lists)
(let* ((this-file (cdr (assoc "clientFile" this-list)))
(state (vc-p4-state this-file this-list t t)))
(funcall update-function
(list
(list (file-relative-name this-file dir) state))
t)))
(unless (eq state 'up-to-date)
(funcall update-function
(list
(list (file-relative-name this-file dir) state))
t))))
(funcall update-function nil nil)))
(defun vc-p4-working-revision (file)