[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v |
Date: |
Sat, 05 Apr 2008 00:15:17 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 08/04/05 00:15:14
Index: vc-sccs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- vc-sccs.el 25 Feb 2008 08:13:23 -0000 1.43
+++ vc-sccs.el 5 Apr 2008 00:15:13 -0000 1.44
@@ -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
- [Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v,
Dan Nicolaescu <=