Re: When grep-find, show the count of matches

[Kevin Rodgers]

Tim Landscheidt wrote:
...
> No, you should defadvice *around* grep-process-setup, copy
> the whole original from the Emacs distribution, and replace
> the lambda construct in:
>
> |   (set (make-local-variable 'compilation-exit-message-function)
> |        (lambda (status code msg)
> |          (if (eq status 'exit)
> |              (cond ((zerop code)
> |                     '("finished (matches found)\n" . "matched"))
> |                    ((= code 1)
> |                     '("finished with no matches found\n" . "no match"))
> |                    (t
> |                     (cons msg code)))
> |            (cons msg code))))
>
> with another that inserts the number of matches into the
> buffer.

Copying the grep-process-setup function definition defeats the purpose of
defadvice.  As the function's doc string suggests, this is what grep-setup-hook
is intended for (resetting compilation-exit-message-function).

--
Kevin Rodgers
Denver, Colorado, USA