[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el |
Date: |
Mon, 05 Sep 2005 11:43:22 -0400 |
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)