From 74aa350f0ba0be8827f63c998dd6e483f892e299 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 15 Jan 2015 22:41:15 -0500 Subject: Use grep-setup-hook to hide grep headers --- lisp/init-buffile.el | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) (limited to 'lisp/init-buffile.el') diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el index 33fa74d..c26c323 100644 --- a/lisp/init-buffile.el +++ b/lisp/init-buffile.el @@ -71,21 +71,12 @@ The search is limited to file names matching shell pattern FILES. FILES may use abbreviations defined in `grep-files-aliases', e.g. entering `ch' is equivalent to `*.[ch]'.") -;; http://stackoverflow.com/questions/16122801/ -;; remove-header-information-from-rgrep-grep-output-in-emacs -(defun hide-grep-header () +(defun km/grep-hide-header () (save-excursion - (with-current-buffer grep-last-buffer - (goto-line 5) - (narrow-to-region (point) (point-max))))) - -(after 'grep - (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))) -(after 'vc-git - (defadvice vc-git-grep (after hide-grep-header activate) (hide-grep-header))) + (goto-char (point-min)) + (forward-line 4) + (narrow-to-region (point) (point-max)))) +(add-hook 'grep-setup-hook 'km/grep-hide-header) (key-chord-define-global ",z" 'rgrep) -- cgit v1.2.3