[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el,v

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   08/04/21 16:18:13

Index: vc-cvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -b -r1.121 -r1.122
--- vc-cvs.el   17 Apr 2008 00:31:56 -0000      1.121
+++ vc-cvs.el   21 Apr 2008 16:18:12 -0000      1.122
@@ -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,