* 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 --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 9f7111e1541711d1984174b55ffc4f894b7565ad..4fbdc99d5017b3148e490c1d4a12d3968e7e480f 100644 (file)
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -929,12 +929,11 @@ commands act on the files in those directories displayed in the
 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."