Mercurial > emacs
changeset 82352:0349c504d001
(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 | 5278474015bb |
| children | 02af9b581498 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
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))