Mercurial > emacs

diff lisp/progmodes/compile.el @ 82352:0349c504d001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-buffer-name): Don't check compilation-arguments. It is superfluous, and the variable isn't even set when this function is called.
author Glenn Morris <rgm@gnu.org>
date Sat, 11 Aug 2007 03:02:05 +0000
parents 3892324d724a
children e5a68f18fcb9
line wrap: on
line diff
--- 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))