(vc-cvs-status-extra-headers): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f065ec2a31810d9e2a214e9bcc9009a42de6bd0..b9a9713273c0e4673808d33a05bf1dd6dc333a65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,8 @@
 
 2008-04-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * 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 d976213f187095a0c44bc1651bb0815c83285c74..67830b48fd5feb74116ca99ce8548fb572757f63 100644 (file)
--- 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,