From d7377c46bc1a64286e6038747d4ae1f41e02c301 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 4 Nov 2008 07:25:26 +0000 Subject: [PATCH] * 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. --- lisp/vc-dir.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el index 9f7111e1541..4fbdc99d501 100644 --- 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." -- 2.39.2