Re: grep and compilation buffers.

[Richard M. Stallman]

Does this give good results?

*** compile.el  24 Sep 2005 22:42:54 -0400      1.384
--- compile.el  27 Sep 2005 22:21:08 -0400      
***************
*** 899,905 ****
    :group 'compilation)
  
  
! (defun compilation-buffer-name (mode-name 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.
--- 899,905 ----
    :group 'compilation)
  
  
! (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,917 ****
         (funcall name-function mode-name))
        (compilation-buffer-name-function
         (funcall compilation-buffer-name-function mode-name))
!       ((eq major-mode (nth 1 compilation-arguments))
         (buffer-name))
        (t
         (concat "*" (downcase mode-name) "*"))))
--- 911,918 ----
         (funcall name-function mode-name))
        (compilation-buffer-name-function
         (funcall compilation-buffer-name-function mode-name))
!       ((and (eq mode-command major-mode)
!             (eq major-mode (nth 1 compilation-arguments)))
         (buffer-name))
        (t
         (concat "*" (downcase mode-name) "*"))))
***************
*** 960,966 ****
      (with-current-buffer
        (setq outbuf
              (get-buffer-create
!              (compilation-buffer-name name-of-mode name-function)))
        (let ((comp-proc (get-buffer-process (current-buffer))))
        (if comp-proc
            (if (or (not (eq (process-status comp-proc) 'run))
--- 961,967 ----
      (with-current-buffer
        (setq outbuf
              (get-buffer-create
!              (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))