From 1fe4f8b470cab6466c61caaf59dc5c129f69822d Mon Sep 17 00:00:00 2001 From: "G. Kayaalp" Date: Wed, 15 Jul 2015 01:10:27 +0300 Subject: [PATCH] Add support for the good old RCS. Trivial change for supporting also the RCS versioning system. --- ibuffer-vc.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ibuffer-vc.el b/ibuffer-vc.el index 437a21f..0bfcdff 100644 --- a/ibuffer-vc.el +++ b/ibuffer-vc.el @@ -126,6 +126,8 @@ If the file is not under version control, nil is returned instead." ((fboundp root-fn-name) (funcall root-fn-name file-name)) ; git, svn, hg, bzr (at least) ((memq backend '(darcs DARCS)) (vc-darcs-find-root file-name)) ((memq backend '(cvs CVS)) (vc-find-root file-name "CVS")) + ((memq backend '(rcs RCS)) (or (vc-find-root file-name "RCS") + (concat file-name ",v"))) (t (error "ibuffer-vc: don't know how to find root for vc backend '%s' - please submit a bug report or patch" backend))))) (cons backend root-dir)))))))