(vc-dir-resynch-file): Update the vc-dir header when

resyncing a directory.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e830684260..fb14b30ac28 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-17  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * vc-dir.el (vc-dir-resynch-file): Update the vc-dir header when
+        resyncing a directory.
+
 2010-01-17  Stephen Leake  <stephen_leake@member.fsf.org>
 
         * progmodes/ada-mode.el: Fix bug#1920, bug#5400.
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 575a64c1f80..2f661e8becf 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -874,7 +874,10 @@ If it is a file, return the corresponding cons for the file itself."
             (let ((ddir default-directory))
               (when (vc-string-prefix-p ddir file)
                 (if (file-directory-p file)
-                    (vc-dir-resync-directory-files file)
+                    (progn
+                      (vc-dir-resync-directory-files file)
+                      (ewoc-set-hf vc-ewoc
+                                   (vc-dir-headers vc-dir-backend default-directory) ""))
                   (let ((state (vc-dir-recompute-file-state file ddir)))
                     (vc-dir-update
                      (list state)