changeset 99361:4203ba748ebb

* 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.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 04 Nov 2008 07:25:26 +0000
parents 8ae5dbe306e1
children b162bc232856
files lisp/vc-dir.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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."