From 90e9ca17a7b50e827171708901f0d38fbd53ed6b Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 5 Apr 2008 00:15:13 +0000 Subject: [PATCH] * vc-rcs.el (vc-rcs-dir-status): * vc-sccs.el (vc-sccs-dir-status): New function. --- lisp/ChangeLog | 3 +++ lisp/vc-rcs.el | 12 ++++++++++++ lisp/vc-sccs.el | 12 ++++++++++++ 3 files changed, 27 insertions(+) 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 + * 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 -- 2.11.4.GIT