From 4d0bbcb62adfaa4d29657ee93dfbd7fec2bd51f5 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sun, 17 Jan 2010 12:36:21 -0800 Subject: (vc-dir-resynch-file): Update the vc-dir header when resyncing a directory. --- lisp/vc-dir.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/vc-dir.el') 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) -- cgit v1.2.1