# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1208794692 0
# Node ID 7cc87e1801a686b7426a76b664b2170d1bb84bfd
# Parent  0ffd6dd0f75d6eba914cab2a6e0608960629a5ca
(vc-cvs-status-extra-headers): New function.

diff -r 0ffd6dd0f75d -r 7cc87e1801a6 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Apr 21 07:13:33 2008 +0000
+++ b/lisp/ChangeLog	Mon Apr 21 16:18:12 2008 +0000
@@ -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 -r 0ffd6dd0f75d -r 7cc87e1801a6 lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Mon Apr 21 07:13:33 2008 +0000
+++ b/lisp/vc-cvs.el	Mon Apr 21 16:18:12 2008 +0000
@@ -939,7 +939,6 @@
   ;;   (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 @@
   (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,