[Emacs-diffs] /srv/bzr/emacs/trunk r99364: (vc-dir-resynch-file): Update the vc-dir header when

[Dan Nicolaescu]

------------------------------------------------------------
revno: 99364
committer: Dan Nicolaescu <address@hidden>
branch nick: trunk
timestamp: Sun 2010-01-17 12:36:21 -0800
message:
  (vc-dir-resynch-file): Update the vc-dir header when
  resyncing a directory.
modified:
  lisp/ChangeLog
  lisp/vc-dir.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-17 19:15:32 +0000
+++ b/lisp/ChangeLog    2010-01-17 20:36:21 +0000
@@ -1,3 +1,8 @@
+2010-01-17  Dan Nicolaescu  <address@hidden>
+
+       * vc-dir.el (vc-dir-resynch-file): Update the vc-dir header when
+       resyncing a directory.
+
 2010-01-17  Stephen Leake  <address@hidden>
 
        * progmodes/ada-mode.el: Fix bug#1920, bug#5400.

=== modified file 'lisp/vc-dir.el'
--- a/lisp/vc-dir.el    2010-01-13 08:35:10 +0000
+++ b/lisp/vc-dir.el    2010-01-17 20:36:21 +0000
@@ -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)