[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: grep and compilation buffers.
From: |
Richard M. Stallman |
Subject: |
Re: grep and compilation buffers. |
Date: |
Wed, 28 Sep 2005 13:10:40 -0400 |
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))