# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003776206 0
# Node ID dbb68d0ddad1d05e5dbf276fd253ec9816b35bfa
# Parent  c8d44341971a490893e97c0f6155e2da44a11389
(compilation-set-window-height): Select
old window only if it's still live.

diff -r c8d44341971a -r dbb68d0ddad1 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Oct 22 17:38:17 2001 +0000
+++ b/lisp/progmodes/compile.el	Mon Oct 22 18:43:26 2001 +0000
@@ -937,7 +937,10 @@
 		 (select-window window)
 		 (enlarge-window (- compilation-window-height
 				    (window-height))))
-	     (select-window w))))))
+	     ;; The enlarge-window above may have deleted W, if
+	     ;; compilation-window-height is large enough.
+	     (when (window-live-p w)
+	       (select-window w)))))))
 
 (defvar compilation-minor-mode-map
   (let ((map (make-sparse-keymap)))