From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 17 Jan 2010 20:36:21 +0000 (-0800)
Subject: (vc-dir-resynch-file): Update the vc-dir header when
X-Git-Tag: emacs-pretest-23.1.92~35^2~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4d0bbcb62adfaa4d29657ee93dfbd7fec2bd51f5;p=emacs.git

(vc-dir-resynch-file): Update the vc-dir header when
resyncing a directory.
---

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)