diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-16 09:23:22 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-16 09:23:22 +0000 |
| commit | 4c61891a9e53893372d748c32f978557a739c00c (patch) | |
| tree | 5e1e5764aea5bed2b518dba09203394fe73e30ec /lisp/vc-cvs.el | |
| parent | 780162950d6e834a0269525334274cba9ddd5bd3 (diff) | |
| download | emacs-4c61891a9e53893372d748c32f978557a739c00c.tar.gz | |
Extract and display the CVS repository.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 31 |
1 files changed, 20 insertions, 11 deletions
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. |