Allow --all to be mixed with matching options like --copies and --in (but not --include and --exclude).

1 files changed, 4 insertions, 1 deletions

diff --git a/Seek.hs b/Seek.hs
index 4b3281a56..3c84814f5 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -158,7 +158,10 @@ withKeyOptions keyop fallbackop params = do
   	go a = do
 		unless (null params) $
 			error "Cannot mix --all or --unused with file names."
-		map keyop <$> a
+		matcher <- Limit.getMatcher
+		map (process matcher) <$> a
+	process matcher k = ifM (matcher $ MatchingKey k)
+		( keyop k , return Nothing)
 
 prepFiltered :: (FilePath -> CommandStart) -> Annex [FilePath] -> Annex [CommandStart]
 prepFiltered a fs = do