From ab07050d8922665e4a5d991861fe4f5ca4150a55 Mon Sep 17 00:00:00 2001 From: Johan Ekenberg Date: Sat, 4 Nov 2023 19:51:58 +0100 Subject: [PATCH] ivy.el (ivy-occur-keep-lines): Add --- ivy.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ivy.el b/ivy.el index b8fe95f8..43c6fa95 100644 --- a/ivy.el +++ b/ivy.el @@ -4967,6 +4967,7 @@ buffer would modify `ivy-last'.") (define-key map (kbd "R") 'read-only-mode) (ivy-define-key map (kbd "C-d") 'ivy-occur-delete-candidate) (ivy-define-key map (kbd "F") 'ivy-occur-flush-lines) + (ivy-define-key map (kbd "K") 'ivy-occur-keep-lines) map) "Keymap for Ivy Occur mode.") @@ -5074,6 +5075,12 @@ When `ivy-calling' isn't nil, call `ivy-occur-press'." (let ((inhibit-read-only t)) (call-interactively 'flush-lines))) +(defun ivy-occur-keep-lines () + "Delete lines not matching regex." + (interactive) + (let ((inhibit-read-only t)) + (call-interactively 'keep-lines))) + (define-derived-mode ivy-occur-grep-mode grep-mode "Ivy-Occur" "Major mode for output from \\[ivy-occur].