# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1209686170 0
# Node ID c444df26b2747bf15ba5e5ae2655e979e1b1e33f
# Parent  dea0b823c8e26cb64c06fdabe353e35914a8bc88
(compilation-auto-jump): Set window point to `pos' explicitly.

diff -r dea0b823c8e2 -r c444df26b274 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu May 01 23:55:44 2008 +0000
+++ b/lisp/progmodes/compile.el	Thu May 01 23:56:10 2008 +0000
@@ -772,6 +772,8 @@
 (defun compilation-auto-jump (buffer pos)
   (with-current-buffer buffer
     (goto-char pos)
+    (let ((win (get-buffer-window buffer 0)))
+      (if win (set-window-point win pos)))
     (if compilation-auto-jump-to-first-error
 	(compile-goto-error))))