# HG changeset patch # User Oleksandr Gavenko # Date 1490396763 -10800 # Node ID 6f939639c52a27f9ace1f86ab79fcf4979802418 # Parent 4f24c53e6e38ede699a5b0005c6080aa444c793b No need to custom implementation of zgrep, zrgrep is bundled with v23.2. diff -r 4f24c53e6e38 -r 6f939639c52a .emacs-my --- 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 -nH -e ") (grep-find-ignored-files nil) ) - (cl-flet ( (grep-compute-defaults () nil) ) - (call-interactively #'lgrep)))) - -(defun rzgrep () - (interactive) - (let ( (grep-find-template "find . -type f -exec zgrep -nH -e {} +") (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) diff -r 4f24c53e6e38 -r 6f939639c52a .emacs-obsolete --- 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 -nH -e ") (grep-find-ignored-files nil) ) + (cl-flet ( (grep-compute-defaults () nil) ) + (call-interactively #'lgrep)))) + +(defun rzgrep () + (interactive) + (let ( (grep-find-template "find . -type f -exec zgrep -nH -e {} +") (grep-find-ignored-files nil) ) + (cl-flet ( (grep-compute-defaults () nil) ) + (call-interactively #'rgrep))))