X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=blobdiff_plain;f=alarm-vc.el;h=84fbf7f1f6b8c21ad087fccc4fd30a5623cbe846;hp=492a86256ff75fe0920cb232da0771e136b34c8b;hb=HEAD;hpb=3771096a125c7cff7216ca61ce51b2cda5a7aca1

diff --git a/alarm-vc.el b/alarm-vc.el
index 492a862..84fbf7f 100644
--- a/alarm-vc.el
+++ b/alarm-vc.el
@@ -65,25 +65,25 @@ should."
       (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")
 
               )))