actions not split by rcs override those that are

[code/myrepos.git] / mr

diff --git a/mr b/mr
index e927a125bdf97c92bd5ffbf1ae6854a175678c04..74d0129432c3f701a0f29c2b816b4eb1a85583ab 100755 (executable)
--- a/mr
+++ b/mr
@@ -570,6 +570,10 @@ sub rcs_test { #{{{
        
 sub findcommand { #{{{
        my ($action, $dir, $topdir, $subdir) = @_;
+       
+       if (exists $config{$topdir}{$subdir}{$action}) {
+               return $config{$topdir}{$subdir}{$action};
+       }
 
        my $rcs=rcs_test(@_);
 
@@ -577,9 +581,6 @@ sub findcommand { #{{{
            exists $config{$topdir}{$subdir}{$rcs."_".$action}) {
                return $config{$topdir}{$subdir}{$rcs."_".$action};
        }
-       elsif (exists $config{$topdir}{$subdir}{$action}) {
-               return $config{$topdir}{$subdir}{$action};
-       }
        else {
                return undef;
        }