Mercurial > emacs

changeset 40195:dbb68d0ddad1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-set-window-height): Select old window only if it's still live.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 22 Oct 2001 18:43:26 +0000
parents c8d44341971a
children 32562176a269
files lisp/progmodes/compile.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))