[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/14 16:36:32

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.581
retrieving revision 1.582
diff -u -b -r1.581 -r1.582
--- vc.el       14 Apr 2008 16:21:23 -0000      1.581
+++ vc.el       14 Apr 2008 16:36:32 -0000      1.582
@@ -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))))))))))))