diff options
author | Dan Nicolaescu <[email protected]> | 2008-07-07 16:59:39 +0000 |
---|---|---|
committer | Dan Nicolaescu <[email protected]> | 2008-07-07 16:59:39 +0000 |
commit | 29ce30b372950087913bb311affe6654d632fc3b (patch) | |
tree | e0145d30871007d4a4eea7cb4a91da0ef10669fc | |
parent | 8c3d7147da1ffa024fce782ad071628d2d932ca0 (diff) |
(vc-dir-refresh): Only update files.
-rw-r--r-- | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/vc-dir.el | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3cda36fecb..5044be8c44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-07-07 Dan Nicolaescu <[email protected]> + * 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 dcb5f00c15..69117c8f2f 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 |