# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1210929802 0
# Node ID 0f15001fd14272bafc9603527436fb84377756d9
# Parent  c3e4a8a23b8c9e52d905246385a35ac9cafd44fe
Extract and display the CVS repository.

diff -r c3e4a8a23b8c -r 0f15001fd142 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri May 16 08:53:51 2008 +0000
+++ b/lisp/ChangeLog	Fri May 16 09:23:22 2008 +0000
@@ -3,6 +3,8 @@
 	* vc.el: Remove my analysis of SCCS/RCS concurrency issues from
 	the end of the file, it was good work at one time but has been
 	stale since 1995 and may now be actively misleading.
+	* vc-cvs.el (vc-cvs-status-extra-headers): Extract and display the
+	CVS repository.
 
 2008-05-16  Juanma Barranquero  <lekktu@gmail.com>
 
diff -r c3e4a8a23b8c -r 0f15001fd142 lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Fri May 16 08:53:51 2008 +0000
+++ b/lisp/vc-cvs.el	Fri May 16 09:23:22 2008 +0000
@@ -922,17 +922,26 @@
    `(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)))
+  (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 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))))
 
 (defun vc-cvs-get-entries (dir)
   "Insert the CVS/Entries file from below DIR into the current buffer.