diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-05 00:15:13 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-05 00:15:13 +0000 |
| commit | e79ed1f5272fcb170ee1e7093ca5238a0d703d98 (patch) | |
| tree | a65325460cd012bdd3cb64d20444a984d99d9cd7 /lisp/vc-rcs.el | |
| parent | d3997ddd06e44e8949d4994f3dd9073ee18c9045 (diff) | |
| download | emacs-e79ed1f5272fcb170ee1e7093ca5238a0d703d98.tar.gz | |
* vc-rcs.el (vc-rcs-dir-status):
* vc-sccs.el (vc-sccs-dir-status): New function.
Diffstat (limited to 'lisp/vc-rcs.el')
| -rw-r--r-- | lisp/vc-rcs.el | 12 |
1 files changed, 12 insertions, 0 deletions
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 |