[elpa] externals/ivy e322890809 05/10: ivy.el (ivy-occur-flush-lines): Add

[Basil L. Contovounesios]

branch: externals/ivy
commit e32289080957e4f6ee48dcb879c437eea62a1133
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    ivy.el (ivy-occur-flush-lines): Add
---
 ivy.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ivy.el b/ivy.el
index 98f5d4c0d5..d7a23fed96 100644
--- a/ivy.el
+++ b/ivy.el
@@ -4963,6 +4963,7 @@ buffer would modify `ivy-last'.")
     (define-key map (kbd "q") 'quit-window)
     (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)
     map)
   "Keymap for Ivy Occur mode.")
 
@@ -5064,6 +5065,12 @@ When `ivy-calling' isn't nil, call `ivy-occur-press'."
     (delete-region (line-beginning-position)
                    (1+ (line-end-position)))))
 
+(defun ivy-occur-flush-lines ()
+  "Delete lines matching regex."
+  (interactive)
+  (let ((inhibit-read-only t))
+    (call-interactively 'flush-lines)))
+
 (define-derived-mode ivy-occur-grep-mode grep-mode "Ivy-Occur"
   "Major mode for output from \\[ivy-occur].