(compilation-buffer-name): Don't check compilation-arguments. It is

superfluous, and the variable isn't even set when this function is
called.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index d7283037b6fdd9fc7b6012567e011337ecc218a5..2bed6ce39a68294f8d8a4ed9594790c708c082d9 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -979,8 +979,7 @@ Otherwise, construct a buffer name from MODE-NAME."
         (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 @@ Returns the compilation buffer created."
     (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))