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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/04/05 00:15:14

Index: vc-rcs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- vc-rcs.el   24 Feb 2008 23:02:09 -0000      1.61
+++ vc-rcs.el   5 Apr 2008 00:15:13 -0000       1.62
@@ -181,6 +181,18 @@
                    (vc-rcs-state file))))
         (vc-rcs-state file)))))
 
+;; XXX Experimental function for the vc-dired replacement.
+(defun vc-rcs-dir-status (dir update-function status-buffer)
+  ;; XXX: quick hack, there should be a better way to do this,
+  ;; but it's not worse than vc-dired :-).
+  (let ((flist (vc-expand-dirs (list dir)))
+       (result nil))
+    (dolist (file flist)
+      (let ((state (vc-state file))
+           (frel (file-relative-name file)))
+       (push (list frel state) result)))
+    (funcall update-function result status-buffer)))
+
 (defun vc-rcs-working-revision (file)
   "RCS-specific version of `vc-working-revision'."
   (or (and vc-consult-headers