From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 5 Apr 2008 00:15:13 +0000 (+0000)
Subject: * vc-rcs.el (vc-rcs-dir-status):
X-Git-Tag: emacs-pretest-23.0.90~6568
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90e9ca17a7b50e827171708901f0d38fbd53ed6b;p=emacs.git

* vc-rcs.el (vc-rcs-dir-status):
* vc-sccs.el (vc-sccs-dir-status): New function.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4709f56e1ca..cb09facc268 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-04  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* vc-rcs.el (vc-rcs-dir-status):
+	* vc-sccs.el (vc-sccs-dir-status): New function.
+
 	* outline.el (outline-mode-menu-bar-map):
 	* term.el (terminal-signal-menu): Add :help.
 
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index b20240b25b7..387a8eaaf03 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -181,6 +181,18 @@ For a description of possible values, see `vc-check-master-templates'."
                    (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
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index 0c1cc41ed64..22b73104d34 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -144,6 +144,18 @@ For a description of possible values, see `vc-check-master-templates'."
             (vc-sccs-state file))))
     (vc-sccs-state file)))
 
+;; XXX Experimental function for the vc-dired replacement.
+(defun vc-sccs-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-sccs-working-revision (file)
   "SCCS-specific version of `vc-working-revision'."
   (with-temp-buffer