diff options
| author | Glenn Morris <[email protected]> | 2007-08-11 03:02:05 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-08-11 03:02:05 +0000 |
| commit | be9471017088eaf3e7bde1c042c299079336d235 (patch) | |
| tree | d17bec43ec0414c7dd66fdd88aba8cbb8f73ee53 /lisp/progmodes | |
| parent | 8e80bfc5b93ebe821c6b87532d147f74aa2db7b1 (diff) | |
(compilation-buffer-name): Don't check compilation-arguments. It is
superfluous, and the variable isn't even set when this function is
called.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d7283037b6..2bed6ce39a 100644 --- 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)) |