From 8fe6981c8bf8571983420202be1275c5388fa34d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 29 Nov 2014 22:41:55 -0500 Subject: Move grep-related stuff to init-buffile.el --- lisp/init-buffile.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'lisp/init-buffile.el') diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el index 8c3f6df..28540f9 100644 --- a/lisp/init-buffile.el +++ b/lisp/init-buffile.el @@ -67,6 +67,29 @@ user." (define-key km/file-map "v" 'view-file) +(autoload 'vc-git-grep "vc-git" + "Run git grep, searching for REGEXP in FILES in directory DIR. +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 () + (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)) +(after 'vc-git + (defadvice vc-git-grep (after hide-grep-header activate) (hide-grep-header))) + +(key-chord-define-global ",z" 'rgrep) + ;;; Ibuffer ;; Replace buffer-menu with ibuffer. -- cgit v1.2.3