Re: grep and compilation buffers.

[Nick Roberts]

 > Does this give good results?

Yes. That seems to do the right thing.

Nick


 > --- compile.el       24 Sep 2005 22:42:54 -0400      1.384
 > +++ compile.el       27 Sep 2005 22:21:08 -0400      
 > @@ -899,7 +899,7 @@
 >    :group 'compilation)
 >  
 >  
 > -(defun compilation-buffer-name (mode-name name-function)
 > +(defun compilation-buffer-name (mode-name mode-command name-function)
 >    "Return the name of a compilation buffer to use.
 >  If NAME-FUNCTION is non-nil, call it with one argument MODE-NAME
 >  to determine the buffer name.
 > @@ -911,7 +911,8 @@
 >       (funcall name-function mode-name))
 >      (compilation-buffer-name-function
 >       (funcall compilation-buffer-name-function mode-name))
 > -    ((eq major-mode (nth 1 compilation-arguments))
 > +    ((and (eq mode-command major-mode)
 > +          (eq major-mode (nth 1 compilation-arguments)))
 >       (buffer-name))
 >      (t
 >       (concat "*" (downcase mode-name) "*"))))
 > @@ -960,7 +961,7 @@
 >      (with-current-buffer
 >      (setq outbuf
 >            (get-buffer-create
 > -           (compilation-buffer-name name-of-mode name-function)))
 > +           (compilation-buffer-name name-of-mode mode name-function)))
 >        (let ((comp-proc (get-buffer-process (current-buffer))))
 >      (if comp-proc
 >          (if (or (not (eq (process-status comp-proc) 'run))