diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/vc.el | 10 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 97651c65390..ed590f9c3e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca> * vc.el (vc-status-update): Fix typo. + (vc-status-update): Set needs-update. + (vc-status-refresh): η-reduce. 2008-04-14 Tassilo Horn <tassilo@member.fsf.org> diff --git a/lisp/vc.el b/lisp/vc.el index b54523fa48f..42d7b0d9d7e 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -3038,6 +3038,7 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc." (t (setf (vc-status-fileinfo->state (ewoc-data node)) (nth 1 entry)) (setf (vc-status-fileinfo->extra (ewoc-data node)) (nth 2 entry)) + (setf (vc-status-fileinfo->needs-update (ewoc-data node)) nil) (ewoc-invalidate vc-status node) (setq entries (cdr entries) entry (car entries)) (setq node (ewoc-next vc-status node)))))) @@ -3107,7 +3108,8 @@ Throw an error if another update process is in progress." (setq vc-status-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-status-fileinfo->needs-update info) t) nil) vc-status) + (ewoc-map (lambda (info) (setf (vc-status-fileinfo->needs-update info) t) nil) + vc-status) (lexical-let ((buffer (current-buffer))) (with-current-buffer vc-status-process-buffer (cd def-dir) @@ -3122,11 +3124,11 @@ Throw an error if another update process is in progress." (vc-status-update entries buffer) (unless more-to-come (let ((remaining - (ewoc-collect vc-status - (lambda (info) (vc-status-fileinfo->needs-update info))))) + (ewoc-collect + vc-status 'vc-status-fileinfo->needs-update))) (if remaining (vc-status-refresh-files - (mapcar (lambda (info) (vc-status-fileinfo->name info)) remaining) + (mapcar 'vc-status-fileinfo->name remaining) 'up-to-date) (setq mode-line-process nil)))))))))))) |