(vc-dir-refresh): Only update files.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cda36fecba..5044be8c446 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-07-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
+        * vc-dir.el (vc-dir-refresh): Only update files.
+
         * vc-git.el (vc-git--ls-files-state): Remove unused function.
 
         * vc-bzr.el (vc-bzr-after-dir-status): Deal with execute bit changes.
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index dcb5f00c155..69117c8f2f3 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -955,8 +955,10 @@ Throw an error if another update process is in progress."
       (unless (buffer-live-p vc-dir-process-buffer)
         (setq vc-dir-process-buffer
               (generate-new-buffer (format " *VC-%s* tmp status" backend))))
-      ;; set the needs-update flag on all entries
-      (ewoc-map (lambda (info) (setf (vc-dir-fileinfo->needs-update info) t) nil)
+      ;; set the needs-update flag on all non-directory entries
+      (ewoc-map (lambda (info)
+                  (unless (vc-dir-fileinfo->directory info)
+                    (setf (vc-dir-fileinfo->needs-update info) t) nil))
                 vc-ewoc)
       (lexical-let ((buffer (current-buffer)))
         (with-current-buffer vc-dir-process-buffer