Emacs, alle Zeilen entfernen, die nicht übereinstimmen?

Question

Ich verwende den Ausdruck (query-replace-regexp "from" "to") regelmäßig, wenn große Änderungen in einer Textdatei vorgenommen werden.

Ich möchte einen regulären Ausdruck, wenn einer existiert, zum Entfernen aller Zeilen, die nicht übereinstimmen übereinstimmen. In einer RedHat SPEC-Datei zum Erstellen eines RPM möchte ich zum Beispiel nur die Zeilen, die mit /^Patch/ in ihnen beginnen (und alle nicht übereinstimmenden Zeilen löschen). Einfach genug mit grep -E '^Patch' aber gibt es einen Weg in Emacs?

Ich habe versucht:

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

ohne Erfolg (negativer-Look-Ahead erscheint nicht unterstützt).

Irgendwelche Ideen?

Answer 1

Versuchen M-x Keep-Linien^Patch- statt:

(keep-lines REGEXP &optional RSTART REND INTERACTIVE)

alle Zeilen mit Ausnahme derjenigen enthält Treffer für REGEXP Löschen.

Es besteht auch die entgegengesetzte Befehl M-x flush-Linien, die Linien eine passende regexp entfernt.

Answer 2

Wenn es nur „Patch“ Sie suchen, können Sie Linien identifizieren nicht ^Patch Anpassung von

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

mit Ich gebe zu, es ist ziemlich hässlich, aber. =)

Answer 3

Verwendung M-x delete-non-matching-lines und M-x delete-matching-lines