Mercurial > emacs

changeset 7567:4d808a6268a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-goto-locus): Handle case where *compilation* is in a dedicated window.
author Richard M. Stallman <rms@gnu.org>
date Thu, 19 May 1994 21:50:30 +0000
parents 8a0a7fb9f7d4
children 83bd6547675c
files lisp/progmodes/compile.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Thu May 19 21:48:59 1994 +0000
+++ b/lisp/progmodes/compile.el	Thu May 19 21:50:30 1994 +0000
@@ -955,7 +955,10 @@
   "Jump to an error locus returned by `compilation-next-error-locus'.
 Takes one argument, a cons (ERROR . SOURCE) of two markers.
 Selects a window with point at SOURCE, with another window displaying ERROR."
-  (switch-to-buffer (marker-buffer (cdr next-error)))
+  (if (and (window-dedicated-p (selected-window))
+	   (eq (selected-window) (frame-root-window)))
+      (switch-to-buffer-other-frame (marker-buffer (cdr next-error)))
+    (switch-to-buffer (marker-buffer (cdr next-error))))
   (goto-char (cdr next-error))
   ;; If narrowing got in the way of
   ;; going to the right place, widen.