Emacs, удаляя все строки, которые не совпадают?

Question

Я использую выражение (query-replace-regexp "from" "to") регулярно при внесении больших изменений в текстовый файл.

Мне нужно регулярное выражение, если оно существует, для удаления всех строк, которые не соответствует. Например, в файле SPEC RedHat для создания RPM я хочу оставить только строк, начинающихся с /^Patch/ (и удалите все несоответствующие строки). Достаточно легко с grep -E '^Patch', но есть ли способ в Emacs?

Я пробовал:

(query-replace-regexp "^\\(?!Patch\\)[^\r\n]*$" "") 

без толка (отрицательное опережение появляется неподдерживаемым).

Любые идеи?

Answer 1

Попробуйте M-х держать ЛИНИЙ^Patch вместо:

(keep-lines REGEXP &optional RSTART REND INTERACTIVE)

Удалить все строки, кроме тех, содержащих спичек для REGEXP.

Существует также противоположная команда, M-х утопленная линия, который удаляет строки, соответствующие регулярное выражение.

Answer 2

Если это просто «Patch» вы ищете, вы можете определить строки, не совпадающие ^Patch с помощью

^([^P]|P[^a]|Pa[^t]|Pat[^c]|Patc[^h])[^\r\n]*$ 

Признаюсь, это довольно некрасиво, хотя. =)

Answer 3

использование M-x delete-non-matching-lines и M-x delete-matching-lines