[elpa] externals/ivy-hydra 3c6e5da 091/395: Remove counsel--grep-mode-occur

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 3c6e5daccbc8678ee881b435ac956778de82a076
Author: Rudi Grinberg <me@rgrinberg.com>
Commit: Rudi Grinberg <me@rgrinberg.com>

    Remove counsel--grep-mode-occur
    
    It's not used anywhere and its functionality is subsumed by
    swiper--occur-insert-lines.
    
    Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
---
 counsel.el | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/counsel.el b/counsel.el
index 03762d6..f8e94db 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2731,26 +2731,6 @@ INITIAL-DIRECTORY, if non-nil, is used as the root 
directory for search."
               :caller 'counsel-dired-jump)))
 
 ;;* Grep
-(defun counsel--grep-mode-occur (git-grep-dir-is-file)
-  "Generate a custom occur buffer for grep like commands.
-If GIT-GREP-DIR-IS-FILE is t, then `ivy-state-directory' is treated as a full
-path to a file rather than a directory (e.g. for `counsel-grep-occur').
-
-This function expects that the candidates have already been filtered.
-It applies no filtering to ivy--all-candidates."
-  (unless (eq major-mode 'ivy-occur-grep-mode)
-    (ivy-occur-grep-mode))
-  (let ((directory
-         (if git-grep-dir-is-file
-             (file-name-directory (ivy-state-directory ivy-last))
-           (ivy-state-directory ivy-last))))
-    (setq default-directory directory)
-    ;; Need precise number of header lines for `wgrep' to work.
-    (insert (format "-*- mode:grep; default-directory: %S -*-\n\n\n" 
default-directory))
-    (insert (format "%d candidates:\n" (length ivy--all-candidates)))
-    (ivy--occur-insert-lines
-     (mapcar #'counsel--normalize-grep-match ivy--all-candidates))))
-
 ;;** `counsel-ag'
 (defvar counsel-ag-map
   (let ((map (make-sparse-keymap)))