From 29ce30b372950087913bb311affe6654d632fc3b Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 7 Jul 2008 16:59:39 +0000 Subject: [PATCH] (vc-dir-refresh): Only update files. --- lisp/ChangeLog | 2 ++ lisp/vc-dir.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3cda36fecba..5044be8c446 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-07-07 Dan Nicolaescu + * vc-dir.el (vc-dir-refresh): Only update files. + * vc-git.el (vc-git--ls-files-state): Remove unused function. * vc-bzr.el (vc-bzr-after-dir-status): Deal with execute bit changes. diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index dcb5f00c155..69117c8f2f3 100644 --- a/lisp/vc-dir.el +++ b/lisp/vc-dir.el @@ -955,8 +955,10 @@ Throw an error if another update process is in progress." (unless (buffer-live-p vc-dir-process-buffer) (setq vc-dir-process-buffer (generate-new-buffer (format " *VC-%s* tmp status" backend)))) - ;; set the needs-update flag on all entries - (ewoc-map (lambda (info) (setf (vc-dir-fileinfo->needs-update info) t) nil) + ;; set the needs-update flag on all non-directory entries + (ewoc-map (lambda (info) + (unless (vc-dir-fileinfo->directory info) + (setf (vc-dir-fileinfo->needs-update info) t) nil)) vc-ewoc) (lexical-let ((buffer (current-buffer))) (with-current-buffer vc-dir-process-buffer -- 2.39.2