Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.380
emacs/lisp/progmodes/compile.el:1.381
*** emacs/lisp/progmodes/compile.el:1.380 Fri Sep 2 18:37:55 2005
--- emacs/lisp/progmodes/compile.el Mon Sep 5 15:43:22 2005
***************
*** 1688,1701 ****
;; Show compilation buffer in other window, scrolled to this error.
(let* ((pop-up-windows t)
;; Use an existing window if it is in a visible frame.
! (w (or (get-buffer-window (marker-buffer msg) 'visible)
! ;; Pop up a window.
! (display-buffer (marker-buffer msg))))
(highlight-regexp (with-current-buffer (marker-buffer msg)
;; also do this while we change buffer
(compilation-set-window w msg)
compilation-highlight-regexp)))
! (compilation-set-window-height w)
(when highlight-regexp
(if (timerp next-error-highlight-timer)
--- 1688,1705 ----
;; Show compilation buffer in other window, scrolled to this error.
(let* ((pop-up-windows t)
;; Use an existing window if it is in a visible frame.
! (pre-existing (get-buffer-window (marker-buffer msg) 0))
! (w (let ((display-buffer-reuse-frames t))
! ;; Pop up a window.
! (display-buffer (marker-buffer msg))))
(highlight-regexp (with-current-buffer (marker-buffer msg)
;; also do this while we change buffer
(compilation-set-window w msg)
compilation-highlight-regexp)))
! ;; Ideally, the window-size should be passed to `display-buffer' (via
! ;; something like special-display-buffer) so it's only used when
! ;; creating a new window.
! (unless pre-existing (compilation-set-window-height w))
(when highlight-regexp
(if (timerp next-error-highlight-timer)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
