equal
deleted
inserted
replaced
729 (global-set-key [M-f7] 'rgrep) |
729 (global-set-key [M-f7] 'rgrep) |
730 |
730 |
731 (defun lzgrep () |
731 (defun lzgrep () |
732 (interactive) |
732 (interactive) |
733 (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) ) |
733 (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) ) |
734 (flet ( (grep-compute-defaults () nil) ) |
734 (cl-flet ( (grep-compute-defaults () nil) ) |
735 (call-interactively #'lgrep)))) |
735 (call-interactively #'lgrep)))) |
736 |
736 |
737 (defun rzgrep () |
737 (defun rzgrep () |
738 (interactive) |
738 (interactive) |
739 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
739 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
740 (flet ( (grep-compute-defaults () nil) ) |
740 (cl-flet ( (grep-compute-defaults () nil) ) |
741 (call-interactively #'rgrep)))) |
741 (call-interactively #'rgrep)))) |
742 |
742 |
743 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
743 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
744 (message "highlighting") |
744 (message "highlighting") |
745 |
745 |