equal
deleted
inserted
replaced
768 (when (< emacs-major-version 23) |
768 (when (< emacs-major-version 23) |
769 (global-set-key (kbd "M-s o") 'occur) |
769 (global-set-key (kbd "M-s o") 'occur) |
770 ) |
770 ) |
771 |
771 |
772 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
772 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
773 (message "grep, find") |
773 (message "grep, find, ack, ag") |
774 |
774 |
775 (eval-when 'compile (require 'find-dired)) |
775 (eval-when 'compile (require 'find-dired)) |
776 |
776 |
777 ;; -ls produce very noisy output: |
777 ;; -ls produce very noisy output: |
778 ;; (setq find-ls-option '("-ls" . "")) |
778 ;; (setq find-ls-option '("-ls" . "")) |
809 (defun rzgrep () |
809 (defun rzgrep () |
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 |
|
815 (setq ag-highlight-search t) |
|
816 (when (featurep 'ag) |
|
817 (global-set-key [f7] 'ag-project)) |
814 |
818 |
815 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
819 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
816 (message "highlighting") |
820 (message "highlighting") |
817 |
821 |
818 ;; Increase scrolling speed by defer consuming operation. |
822 ;; Increase scrolling speed by defer consuming operation. |