Mercurial > emacs

changeset 94085:7601144a671f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-status-update): Set needs-update. (vc-status-refresh): ¦Ç-reduce.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 14 Apr 2008 16:36:32 +0000
parents 603bcf433ab2
children 4dfdf555a78e
files lisp/ChangeLog lisp/vc.el
diffstat 2 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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>
 
--- 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))))))))))))