# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1225783526 0
# Node ID 4203ba748ebb57388d28a6fa20fdcb6ba401f985
# Parent  8ae5dbe306e1592482e8851d7052282664873d22
* vc-cvs.el (vc-cvs-dir-extra-headers): Add tag name to header.
* vc-dir.el (vc-dir-headers): Order headers as in PCL-CVS.

diff -r 8ae5dbe306e1 -r 4203ba748ebb lisp/vc-dir.el
--- a/lisp/vc-dir.el	Tue Nov 04 07:23:30 2008 +0000
+++ b/lisp/vc-dir.el	Tue Nov 04 07:25:26 2008 +0000
@@ -929,12 +929,11 @@
 It calls the `dir-extra-headers' backend method to display backend
 specific headers."
   (concat
+   (vc-call-backend backend 'dir-extra-headers dir)
    (propertize "VC backend : " 'face 'font-lock-type-face)
    (propertize (format "%s\n" backend) 'face 'font-lock-variable-name-face)
    (propertize "Working dir: " 'face 'font-lock-type-face)
-   (propertize (format "%s\n" dir) 'face 'font-lock-variable-name-face)
-   (vc-call-backend backend 'dir-extra-headers dir)
-   "\n"))
+   (propertize (format "%s\n" dir) 'face 'font-lock-variable-name-face)))
 
 (defun vc-dir-refresh-files (files default-state)
   "Refresh some files in the *VC-dir* buffer."