bug-gnu-emacs
[Top][All Lists]
Advanced

[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 <address@hidden> 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]