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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cda36fecba0511097657b2ef2e36bb72d7b391b..5044be8c4465b5530b7e1ca27437b7ac6d6914b4 100644 (file)
--- 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 dcb5f00c155fc19ae21bc7c4ec55f6acfc289975..69117c8f2f3ab858f738c0b4ccb9f8044e0fff6c 100644 (file)
--- 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