From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 22 Oct 2001 18:48:09 +0000 (+0000)
Subject: (compilation-set-window-height): Select
X-Git-Tag: ttn-vms-21-2-B4~19245
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e38e28391911881e6e82688dd05d8b95a04ee4d6;p=emacs.git

(compilation-set-window-height): Select
old window only if it's still live.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cbc9f9d4e1a..7fc67f36049 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-22  Gerd Moellmann  <gerd@gnu.org>
+
+	* progmodes/compile.el (compilation-set-window-height): Select
+	old window only if it's still live.
+
 2001-10-22  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* help-mode.el (help-buffer): Remove debugging code.
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index da4d398ec22..9faba001c35 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -937,7 +937,10 @@ exited abnormally with code %d\n"
 		 (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)))