equal
deleted
inserted
replaced
810 (interactive) |
810 (interactive) |
811 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
811 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
812 (cl-flet ( (grep-compute-defaults () nil) ) |
812 (cl-flet ( (grep-compute-defaults () nil) ) |
813 (call-interactively #'rgrep)))) |
813 (call-interactively #'rgrep)))) |
814 |
814 |
|
815 (defun my/ag (&optional str) |
|
816 "Search with ag from project roor without prefix and from |
|
817 `default-directory' with prefix." |
|
818 (interactive (when current-prefix-arg (list (ag/read-from-minibuffer "Search string")))) |
|
819 (if str |
|
820 (let ((current-prefix-arg nil)) (ag str default-directory)) |
|
821 (call-interactively #'ag-project))) |
|
822 |
815 (setq ag-highlight-search t) |
823 (setq ag-highlight-search t) |
816 (when (featurep 'ag) |
824 (when (featurep 'ag) |
817 (global-set-key [f7] 'ag-project)) |
825 (global-set-key [f7] 'my/ag)) |
818 |
826 |
819 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
827 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
820 (message "highlighting") |
828 (message "highlighting") |
821 |
829 |
822 ;; Increase scrolling speed by defer consuming operation. |
830 ;; Increase scrolling speed by defer consuming operation. |