Add s-count-matches

s-count-matches does the same as count-matches, but instead of counting
occurrences of regexp following point it takes a string argument.