From 4c61891a9e53893372d748c32f978557a739c00c Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 16 May 2008 09:23:22 +0000 Subject: Extract and display the CVS repository. --- lisp/vc-cvs.el | 31 ++++++++++++++++++++----------- 1 file changed, 20 insertions(+), 11 deletions(-) (limited to 'lisp/vc-cvs.el') diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 90a6b7b2e1f..1e9788487bc 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -922,17 +922,26 @@ state." `(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. -- cgit v1.2.1