projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
db11416
)
Cosmetics.
author
Francois Fleuret
<francois@fleuret.org>
Mon, 3 Oct 2011 08:01:19 +0000
(10:01 +0200)
committer
Francois Fleuret
<francois@fleuret.org>
Mon, 3 Oct 2011 08:01:19 +0000
(10:01 +0200)
alarm-vc.el
patch
|
blob
|
history
diff --git
a/alarm-vc.el
b/alarm-vc.el
index
492a862
..
84fbf7f
100644
(file)
--- a/
alarm-vc.el
+++ b/
alarm-vc.el
@@
-65,25
+65,25
@@
should."
(let ((id
(concat
(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)))
(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)))
;; 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)))
(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
")
)))
)))