mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(vc-dir-refresh): Only update files.

Browse Source
This commit is contained in:
Dan Nicolaescu 2008-07-07 16:59:39 +00:00
parent 8c3d7147da
commit 29ce30b372
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2008-07-07 Dan Nicolaescu <dann@ics.uci.edu>
* 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.

6
lisp/vc-dir.el
View File

@ -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