# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1263760581 28800
# Node ID b9c9ec129ae5c3245d13c789b920de4171e27cdb
# Parent  a50b302b79287842a489b41b5c7592760e6604b8
(vc-dir-resynch-file): Update the vc-dir header when
resyncing a directory.

diff -r a50b302b7928 -r b9c9ec129ae5 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jan 17 14:50:24 2010 -0500
+++ b/lisp/ChangeLog	Sun Jan 17 12:36:21 2010 -0800
@@ -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 -r a50b302b7928 -r b9c9ec129ae5 lisp/vc-dir.el
--- a/lisp/vc-dir.el	Sun Jan 17 14:50:24 2010 -0500
+++ b/lisp/vc-dir.el	Sun Jan 17 12:36:21 2010 -0800
@@ -874,7 +874,10 @@
             (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)