(let ((id
(concat
- ;; CVS
+ ;; cvs
(if (and (fboundp 'vc-cvs-registered)
(vc-cvs-responsible-p buffer-file-name)
(not (vc-cvs-registered buffer-file-name)))
- " CVS")
+ " cvs")
;; Subversion
(if (and (fboundp 'vc-svn-registered)
(vc-svn-responsible-p buffer-file-name)
(not (vc-svn-registered buffer-file-name)))
- " SVN")
+ " svn")
- ;; GIT
+ ;; git
(if (and (fboundp 'vc-git-registered)
;; does not exist in old emacs
(fboundp 'vc-git-responsible-p)
(vc-git-responsible-p buffer-file-name)
(not (vc-git-registered buffer-file-name)))
- " GIT")
+ " git")
)))