Emacs, removing all lines that don’t match?

Try M-x keep-lines ^Patch instead:

(keep-lines REGEXP &optional RSTART REND INTERACTIVE)

Delete all lines except those containing matches for REGEXP.

There is also the opposite command, M-x flush-lines, which removes lines matching a regexp.