From 47302633b2d8234d166d9df2bf88e7ddbae5cd5f Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 21 Apr 2008 16:18:12 +0000 Subject: [PATCH] (vc-cvs-status-extra-headers): New function. --- lisp/ChangeLog | 2 ++ lisp/vc-cvs.el | 14 +++++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0f065ec2a31..b9a9713273c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -6,6 +6,8 @@ 2008-04-21 Dan Nicolaescu + * vc-cvs.el (vc-cvs-status-extra-headers): New function. + * vc-hooks.el (vc-insert-file, vc-state, vc-working-revision) (vc-check-master-templates, vc-file-not-found-hook) (vc-kill-buffer-hook): diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index d976213f187..67830b48fd5 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -939,7 +939,6 @@ state." ;; (funcall update-function result))) ) -;; XXX Experimental function for the vc-dired replacement. (defun vc-cvs-dir-status (dir update-function) "Create a list of conses (file . state) for DIR." (vc-cvs-command (current-buffer) 'async dir "status") @@ -951,6 +950,19 @@ state." (vc-exec-after `(vc-cvs-after-dir-status (quote ,update-function)))) +(defun vc-cvs-status-extra-headers (dir) + (concat + ;; FIXME: see how PCL-CVS gets the data to print all these + (propertize "Module : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE MODULE\n" + 'face 'font-lock-warning-face) + (propertize "Repository : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE REPOSITORY\n" + 'face 'font-lock-warning-face) + (propertize "Branch : " 'face 'font-lock-type-face) + (propertize "ADD CODE TO PRINT THE BRANCH NAME\n" + 'face 'font-lock-warning-face))) + (defun vc-cvs-get-entries (dir) "Insert the CVS/Entries file from below DIR into the current buffer. This function ensures that the correct coding system is used for that, -- 2.39.5