mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

* vc-cvs.el (vc-cvs-dir-extra-headers): Add tag name to header.

Browse source 
* vc-dir.el (vc-dir-headers): Order headers as in PCL-CVS.
This commit is contained in:
Nick Roberts 2008-11-04 07:25:26 +00:00
parent a7cb7fd251
commit d7377c46bc
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc-dir.el
View file

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