[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Compilation window height
From: |
Gerd Moellmann |
Subject: |
Re: Compilation window height |
Date: |
22 Oct 2001 20:53:15 +0200 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.1.50 |
Henrik Enberg <henrik+news@enberg.org> writes:
> --- compile.el.~1~ Wed Sep 19 22:59:24 2001
> +++ compile.el Mon Oct 22 17:39:56 2001
> @@ -863,7 +863,7 @@
>
> (defun compilation-set-window-height (window)
> "Set the height of WINDOW according to `compilation-window-height'."
> - (and compilation-window-height
> + (and (< compilation-window-height (window-height))
Thanks, Henrik, but I don't think this does the right thing, aside
from the fact that it will fail for a null compilation-window-height.
I've installed this instead
Index: compile.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.239
retrieving revision 1.240
diff -c -r1.239 -r1.240
*** compile.el 2001/10/12 17:43:05 1.239
--- compile.el 2001/10/22 18:43:26 1.240
***************
*** 937,943 ****
(select-window window)
(enlarge-window (- compilation-window-height
(window-height))))
! (select-window w))))))
(defvar compilation-minor-mode-map
(let ((map (make-sparse-keymap)))
--- 937,946 ----
(select-window window)
(enlarge-window (- compilation-window-height
(window-height))))
! ;; 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)))