Mercurial > emacs

diff lisp/vc-sccs.el @ 93677:112903000f93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-rcs.el (vc-rcs-dir-status): * vc-sccs.el (vc-sccs-dir-status): New function.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 05 Apr 2008 00:15:13 +0000
parents c1eed47c8247
children 2ecb2ea8d5b5
line wrap: on
line diff
--- a/lisp/vc-sccs.el	Fri Apr 04 23:53:00 2008 +0000
+++ b/lisp/vc-sccs.el	Sat Apr 05 00:15:13 2008 +0000
@@ -144,6 +144,18 @@
             (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