summaryrefslogtreecommitdiff
path: root/lisp/init-grep.el
blob: a1d6dbf8f9906ad74c7385226a0ef849ef2ab587 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
;; http://stackoverflow.com/questions/16122801/
;; remove-header-information-from-rgrep-grep-output-in-emacs
(defun hide-grep-header ()
  (save-excursion
    (with-current-buffer grep-last-buffer
      (goto-line 5)
      (narrow-to-region (point) (point-max)))))

(defadvice grep (after hide-grep-header activate) (hide-grep-header))
(defadvice rgrep (after hide-grep-header activate) (hide-grep-header))
(defadvice lgrep (after hide-grep-hxoeader activate) (hide-grep-header))
(defadvice grep-find (after hide-grep-header activate) (hide-grep-header))
(defadvice vc-git-grep (after hide-grep-header activate) (hide-grep-header))

(key-chord-define-global ",z" 'rgrep)

(provide 'init-grep)