diff options
| author | Gerd Moellmann <[email protected]> | 2001-10-22 18:48:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-10-22 18:48:09 +0000 |
| commit | e38e28391911881e6e82688dd05d8b95a04ee4d6 (patch) | |
| tree | 58a283d23aea24db52e4f1b2672b17f9cbdf94c5 /lisp/progmodes/compile.el | |
| parent | bc171472fa0af653f8e914c36c1b45f991a46305 (diff) | |
(compilation-set-window-height): Select
old window only if it's still live.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index da4d398ec2..9faba001c3 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))) |