# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1186801325 0
# Node ID 0349c504d0011acda27a632df2f8286b993f5dae
# Parent  5278474015bb96e37f5839b7ce9a60ca1138acc9
(compilation-buffer-name): Don't check compilation-arguments.  It is
superfluous, and the variable isn't even set when this function is
called.

diff -r 5278474015bb -r 0349c504d001 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sat Aug 11 03:01:46 2007 +0000
+++ b/lisp/progmodes/compile.el	Sat Aug 11 03:02:05 2007 +0000
@@ -979,8 +979,7 @@
 	 (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)))
+	((eq mode-command major-mode)
 	 (buffer-name))
 	(t
 	 (concat "*" (downcase mode-name) "*"))))
@@ -1032,7 +1031,7 @@
     (with-current-buffer
 	(setq outbuf
 	      (get-buffer-create
-	       (compilation-buffer-name name-of-mode 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))