--- a/.emacs-my	Thu Mar 09 15:11:29 2017 +0200
+++ b/.emacs-my	Sat Mar 25 02:06:03 2017 +0300
@@ -802,21 +802,8 @@
     (add-to-list 'grep-find-ignored-files "*TAGS")
     (add-to-list 'grep-find-ignored-files "GPATH")) )
 
-(global-set-key [f7] 'rgrep)
 (global-set-key [M-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))))
-
 (global-set-key [f7] 'my/ag)
 (global-set-key [S-f7] 'my/ag-default-directory)
 

--- 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))))