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

resyncing a directory.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6e83068426036281df0cb2b321900fc0a6c61029..fb14b30ac284bb84eb4f34f35a17b134db8f6c46 100644 (file)
--- 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 575a64c1f80fd366a025b2e75d33aa27414d2263..2f661e8becf27b6aa21717fbf3d20f5d7da0f3e5 100644 (file)
--- 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)