# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208190992 0
# Node ID 7601144a671f1c682c693acce0e6b116fb6565c5
# Parent  603bcf433ab2a33d5a85bf01b5e0ef616e2a6f3d
(vc-status-update): Set needs-update.
(vc-status-refresh): ¦Ç-reduce.

diff -r 603bcf433ab2 -r 7601144a671f lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Apr 14 16:21:23 2008 +0000
+++ b/lisp/ChangeLog	Mon Apr 14 16:36:32 2008 +0000
@@ -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 -r 603bcf433ab2 -r 7601144a671f lisp/vc.el
--- a/lisp/vc.el	Mon Apr 14 16:21:23 2008 +0000
+++ b/lisp/vc.el	Mon Apr 14 16:36:32 2008 +0000
@@ -3038,6 +3038,7 @@
            (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 @@
         (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 @@
                (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))))))))))))