(vc-dir-headers): Undo previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5599964daeb99578ed659ca10f0fd5c43cc0f71b..1bcbb57c21c75a9c95ff4f9f72fc7a66d4e18976 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-04  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-dir.el (vc-dir-headers): Undo previous change.
+
 2008-11-04  Nick Roberts  <nickrob@snap.net.nz>
 
        * vc-cvs.el (vc-cvs-dir-extra-headers): Add tag name to header.

diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 4fbdc99d5017b3148e490c1d4a12d3968e7e480f..63f239ead3293d56ae94b5d05feffa882231d290 100644 (file)
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -929,11 +929,14 @@ 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)
+   ;; First layout the common headers.
    (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)))
+   (propertize (format "%s\n" dir) 'face 'font-lock-variable-name-face)
+   ;; Then the backend specific ones.
+   (vc-call-backend backend 'dir-extra-headers dir)
+   "\n"))
 
 (defun vc-dir-refresh-files (files default-state)
   "Refresh some files in the *VC-dir* buffer."