374 

   375 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   376 (message "rgrep")

   377 

   378 (global-set-key [f7] 'rgrep)

   379 

   380 (defun lzgrep ()

   381   (interactive)

   382   (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) )

   383     (cl-flet ( (grep-compute-defaults () nil) )

   384       (call-interactively #'lgrep))))

   385 

   386 (defun rzgrep ()

   387   (interactive)

   388   (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) )

   389     (cl-flet ( (grep-compute-defaults () nil) )

   390       (call-interactively #'rgrep))))