From e1638fcea7933236bd23cb36421ba124da18b62d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 2 Feb 2015 22:55:42 -0500 Subject: Rewrite grep-hide-header --- lisp/init-files.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/init-files.el') diff --git a/lisp/init-files.el b/lisp/init-files.el index d65993a..514cdcc 100644 --- a/lisp/init-files.el +++ b/lisp/init-files.el @@ -62,10 +62,9 @@ entering `ch' is equivalent to `*.[ch]'.") (add-hook 'grep-setup-hook 'km/grep-hide-header) (defun km/grep-hide-header () - (save-excursion - (goto-char (point-min)) - (forward-line 4) - (narrow-to-region (point) (point-max)))) + (let ((beg (save-excursion (goto-char (point-min)) + (line-beginning-position 5)))) + (narrow-to-region beg (point-max)))) (define-prefix-command 'km/file-search-map) (define-key km/file-map "s" 'km/file-search-map) -- cgit v1.2.3