diff options
| -rw-r--r-- | lisp/vc-dir.el | 5 |
1 files 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 | |||
| 929 | It calls the `dir-extra-headers' backend method to display backend | 929 | It calls the `dir-extra-headers' backend method to display backend |
| 930 | specific headers." | 930 | specific headers." |
| 931 | (concat | 931 | (concat |
| 932 | (vc-call-backend backend 'dir-extra-headers dir) | ||
| 932 | (propertize "VC backend : " 'face 'font-lock-type-face) | 933 | (propertize "VC backend : " 'face 'font-lock-type-face) |
| 933 | (propertize (format "%s\n" backend) 'face 'font-lock-variable-name-face) | 934 | (propertize (format "%s\n" backend) 'face 'font-lock-variable-name-face) |
| 934 | (propertize "Working dir: " 'face 'font-lock-type-face) | 935 | (propertize "Working dir: " 'face 'font-lock-type-face) |
| 935 | (propertize (format "%s\n" dir) 'face 'font-lock-variable-name-face) | 936 | (propertize (format "%s\n" dir) 'face 'font-lock-variable-name-face))) |
| 936 | (vc-call-backend backend 'dir-extra-headers dir) | ||
| 937 | "\n")) | ||
| 938 | 937 | ||
| 939 | (defun vc-dir-refresh-files (files default-state) | 938 | (defun vc-dir-refresh-files (files default-state) |
| 940 | "Refresh some files in the *VC-dir* buffer." | 939 | "Refresh some files in the *VC-dir* buffer." |