# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954796805 0
# Node ID 6452df59183bb78d9743d1bf7aa2c093c7e805ee
# Parent  8dd86ea1294990a73a1890304f3ec55c452f1da9
(compile-internal): Display the compilation
buffer in a different frame, if it's already displayed there.

diff -r 8dd86ea12949 -r 6452df59183b lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Apr 03 20:54:40 2000 +0000
+++ b/lisp/progmodes/compile.el	Mon Apr 03 21:20:05 2000 +0000
@@ -764,7 +764,7 @@
       (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)