From 4c61891a9e53893372d748c32f978557a739c00c Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 16 May 2008 09:23:22 +0000 Subject: [PATCH] Extract and display the CVS repository. --- lisp/ChangeLog | 2 ++ lisp/vc-cvs.el | 31 ++++++++++++++++++++----------- 2 files changed, 22 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99c790dc39..5495a635ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 90a6b7b2e1..1e9788487b 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. -- 2.20.1