[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el, v [EMACS_22_BA
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el, v [EMACS_22_BASE] |
Date: |
Wed, 08 Aug 2007 05:57:55 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Martin Rudalics <m061211> 07/08/08 05:57:55
Index: compile.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.421.2.6
retrieving revision 1.421.2.7
diff -u -b -r1.421.2.6 -r1.421.2.7
--- compile.el 2 Aug 2007 17:39:28 -0000 1.421.2.6
+++ compile.el 8 Aug 2007 05:57:54 -0000 1.421.2.7
@@ -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)))