mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 05:22:04 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-set-window-height): Select

Browse source 
old window only if it's still live.
This commit is contained in:
Gerd Moellmann 2001-10-22 18:51:10 +00:00
parent 4e1c9b0082
commit 4596c725c7
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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 Eli Zaretskii <eliz@is.elta.co.il>
* textmodes/sgml-mode.el (sgml-mode-map): Bind 8-bit codes above

5
lisp/progmodes/compile.el
View file

@ -877,7 +877,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)))