From 7292914d99d02392add61b55b16d89f053864fd3 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Thu, 27 Aug 2009 04:14:59 -0800 Subject: [PATCH] * vc-p4.el (vc-p4-dir-status): Don't list up-to-date files. [git-p4: depot-paths = "//guest/Ben_Key/vc-p4/,//guest/jonathan_kamens/vc-p4/,//guest/magnus_henoch/vc-p4/": change = 7360] --- vc-p4.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/vc-p4.el b/vc-p4.el index 84e4d80..6e4186a 100644 --- a/vc-p4.el +++ b/vc-p4.el @@ -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)