Skip to content
Browse files

Allow backend symbols to be in either upper or lower case (it varies …

…across Emacsen) [fix #1]
  • Loading branch information...
1 parent 8011a85 commit 153882b96b6369b9bd005afd3b7a92a86b27763a @purcell committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 ibuffer-vc.el
4 ibuffer-vc.el
@@ -78,8 +78,8 @@ file is not under version control"
((fboundp root-fn-name) (funcall root-fn-name file-name)) ; git, svn, hg, bzr (at least)
- ((eq 'darcs backend) (vc-darcs-find-root file-name))
- ((eq 'cvs backend) (vc-find-root file-name "CVS"))
+ ((memq backend '(darcs DARCS)) (vc-darcs-find-root file-name))
+ ((memq backend '(cvs CVS)) (vc-find-root file-name "CVS"))
(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)))))

0 comments on commit 153882b

Please sign in to comment.
Something went wrong with that request. Please try again.