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

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   08/05/16 09:23:24

Index: vc-cvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.133
retrieving revision 1.134
diff -u -b -r1.133 -r1.134
--- vc-cvs.el   15 May 2008 17:38:45 -0000      1.133
+++ vc-cvs.el   16 May 2008 09:23:22 -0000      1.134
@@ -922,17 +922,26 @@
    `(vc-cvs-after-dir-status (quote ,update-function))))
 
 (defun vc-cvs-status-extra-headers (dir)
+  (let ((repo
+        (condition-case nil 
+            (save-excursion 
+              (set-buffer (find-file-noselect "CVS/Root" t))
+              (and (looking-at ":ext:") (delete-char 5))
+              (buffer-string))
+          nil)))
   (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)
+     (cond (repo
+           (concat
    (propertize "Repository : " 'face 'font-lock-type-face)
-   (propertize "ADD CODE TO PRINT THE REPOSITORY\n"
-              'face 'font-lock-warning-face)
+             (propertize repo 'face 'font-lock-warning-face)))
+          (t ""))
    (propertize "Branch     : " 'face 'font-lock-type-face)
    (propertize "ADD CODE TO PRINT THE BRANCH NAME\n"
-              'face 'font-lock-warning-face)))
+                'face 'font-lock-warning-face))))
 
 (defun vc-cvs-get-entries (dir)
   "Insert the CVS/Entries file from below DIR into the current buffer.