mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Dan Nicolaescu 2008-11-04 08:58:24 +00:00
parent 3dcde186be
commit a72000251e
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

7
lisp/vc-dir.el
View File

@ -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."