--- a/.emacs-obsolete	Thu Mar 09 15:11:29 2017 +0200
+++ b/.emacs-obsolete	Sat Mar 25 02:06:03 2017 +0300
@@ -371,3 +371,20 @@
 (setq ag-highlight-search t)
 (when (featurep 'ag)
   (global-set-key [f7] 'my/ag))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "rgrep")
+
+(global-set-key [f7] 'rgrep)
+
+(defun lzgrep ()
+  (interactive)
+  (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) )
+    (cl-flet ( (grep-compute-defaults () nil) )
+      (call-interactively #'lgrep))))
+
+(defun rzgrep ()
+  (interactive)
+  (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) )
+    (cl-flet ( (grep-compute-defaults () nil) )
+      (call-interactively #'rgrep))))