816   (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) )

   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) )

   817     (cl-flet ( (grep-compute-defaults () nil) )

   818       (call-interactively #'rgrep))))

   818       (call-interactively #'rgrep))))

   819 

   819 

   820 (global-set-key [f7] 'my/ag)

   820 (global-set-key [f7] 'my/ag)

   821 

   822 

   822 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   823 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

   823 (message "highlighting")

   824 (message "highlighting")

   824 

   825 

   825 ;; Increase scrolling speed by defer consuming operation.

   826 ;; Increase scrolling speed by defer consuming operation.