(compile-internal): Display the compilation

buffer in a different frame, if it's already displayed there.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b3321baba99469a8e6b7798ebd6838fafd8ceb27..db6be787c57d0d01f6b96b1ada0dc4a4cc482ba0 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -764,7 +764,7 @@ Returns the compilation buffer created."
       (if (eq outbuf (current-buffer))
          (goto-char (point-max)))
       ;; Pop up the compilation buffer.
-      (setq outwin (display-buffer outbuf))
+      (setq outwin (display-buffer outbuf nil t))
       (save-excursion
        (set-buffer outbuf)
        (compilation-mode name-of-mode)