equal
deleted
inserted
replaced
800 (add-to-list 'grep-find-ignored-directories "_lib" t) |
800 (add-to-list 'grep-find-ignored-directories "_lib" t) |
801 (when (boundp 'grep-find-ignored-files) |
801 (when (boundp 'grep-find-ignored-files) |
802 (add-to-list 'grep-find-ignored-files "*TAGS") |
802 (add-to-list 'grep-find-ignored-files "*TAGS") |
803 (add-to-list 'grep-find-ignored-files "GPATH")) ) |
803 (add-to-list 'grep-find-ignored-files "GPATH")) ) |
804 |
804 |
805 (global-set-key [f7] 'rgrep) |
|
806 (global-set-key [M-f7] 'rgrep) |
805 (global-set-key [M-f7] 'rgrep) |
807 |
|
808 (defun lzgrep () |
|
809 (interactive) |
|
810 (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) ) |
|
811 (cl-flet ( (grep-compute-defaults () nil) ) |
|
812 (call-interactively #'lgrep)))) |
|
813 |
|
814 (defun rzgrep () |
|
815 (interactive) |
|
816 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
|
817 (cl-flet ( (grep-compute-defaults () nil) ) |
|
818 (call-interactively #'rgrep)))) |
|
819 |
806 |
820 (global-set-key [f7] 'my/ag) |
807 (global-set-key [f7] 'my/ag) |
821 (global-set-key [S-f7] 'my/ag-default-directory) |
808 (global-set-key [S-f7] 'my/ag-default-directory) |
822 |
809 |
823 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
810 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |