diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-07 16:59:39 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-07-07 16:59:39 +0000 |
| commit | 29ce30b372950087913bb311affe6654d632fc3b (patch) | |
| tree | e0145d30871007d4a4eea7cb4a91da0ef10669fc /lisp/vc-dir.el | |
| parent | 8c3d7147da1ffa024fce782ad071628d2d932ca0 (diff) | |
| download | emacs-29ce30b372950087913bb311affe6654d632fc3b.tar.gz emacs-29ce30b372950087913bb311affe6654d632fc3b.tar.bz2 emacs-29ce30b372950087913bb311affe6654d632fc3b.zip | |
(vc-dir-refresh): Only update files.
Diffstat (limited to 'lisp/vc-dir.el')
| -rw-r--r-- | lisp/vc-dir.el | 6 |
1 files changed, 4 insertions, 2 deletions
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 |