[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Stefan Monnier]

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)