diff options
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 12 |
1 files changed, 12 insertions, 0 deletions
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 |