Re: igrep mode incovenient compilation of results

[Kevin Rodgers]

On 8/1/13 4:22 PM, Rami A wrote:
> I am using igrep.el package and liking it. There is one thing that
> bothers me though. In the igrep results page, the first and last lines
> are highlighted as part of the compilation and so cycling through the
> results using next-error will eventually hit these two lines with no
> corresponding files of course.
>
> These are the format of these first and last files:
>
> Igrep started at Thu Aug  1 15:15:23
>
> finished (matches found) at Thu Aug  1 15:15:27

Does `M-x grep' generate those lines in the *grep* buffer?  Are they highlighted
and do they impact `M-x next-error' in the same way?

(BTW, Kenneth Goldman reported the same problem back in 2010.  Perhaps he knows
a solution.)

> I believe that this is the code responsible for these lines to show up
> all together. How to disable these lines from showing in the grep
> results or at least not having them highlighted as part of the
> results:

This code simply attempts to emulate `M-x grep', on the Emacs versions that
were popular when igrep was actively maintained (by me).  That emulation
probably needs to be updated to account for developments in grep.el and
compile.el since then.

> (if igrep-find
> (setq command
>        (igrep-format-find-command command files)))
> (cond ((eq igrep-save-buffers t) (save-some-buffers t))
>    (igrep-save-buffers (save-some-buffers)))
> (if (fboundp 'compilation-start)    ; Emacs 22
>      (let ((compilation-process-setup-function 'grep-process-setup))
>        (or (fboundp 'igrep-mode)
>            (define-derived-mode igrep-mode grep-mode "Igrep"))
>        (compilation-start command
>                           'igrep-mode
>                           nil
>                           (cond ((eq compilation-highlight-regexp t))
>                                 (compilation-highlight-regexp
>                                  (if (eq program "fgrep")
>                                      (regexp-quote regex)
>                                    regex)))))
>    (compile-internal command (format "No more %s matches" program)
>                      "Igrep" nil grep-regexp-alist))))

--
Kevin Rodgers
Denver, Colorado, USA