Mercurial > emacs
changeset 78465:b8c25f200566
(compilation-set-window-height): Use window-full-width-p instead of
comparing frame-width and window-width.
(compilation-find-buffer): Remove extra
argument in call to compilation-buffer-internal-p.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 08 Aug 2007 05:57:54 +0000 |
| parents | 7819402a9963 |
| children | 99b67eaf3990 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Wed Aug 08 05:51:36 2007 +0000 +++ b/lisp/progmodes/compile.el Wed Aug 08 05:57:54 2007 +0000 @@ -1153,7 +1153,7 @@ "Set the height of WINDOW according to `compilation-window-height'." (let ((height (buffer-local-value 'compilation-window-height (window-buffer window)))) (and height - (= (window-width window) (frame-width (window-frame window))) + (window-full-width-p window) ;; If window is alone in its frame, aside from a minibuffer, ;; don't change its height. (not (eq window (frame-root-window (window-frame window)))) @@ -1611,12 +1611,10 @@ (defun compilation-find-buffer (&optional avoid-current) "Return a compilation buffer. -If AVOID-CURRENT is nil, and -the current buffer is a compilation buffer, return it. -If AVOID-CURRENT is non-nil, return the current buffer -only as a last resort." - (if (and (compilation-buffer-internal-p (current-buffer)) - (not avoid-current)) +If AVOID-CURRENT is nil, and the current buffer is a compilation buffer, +return it. If AVOID-CURRENT is non-nil, return the current buffer only +as a last resort." + (if (and (compilation-buffer-internal-p) (not avoid-current)) (current-buffer) (next-error-find-buffer avoid-current 'compilation-buffer-internal-p)))