changeset 94526:c444df26b274

(compilation-auto-jump): Set window point to `pos' explicitly.
author Juri Linkov <juri@jurta.org>
date Thu, 01 May 2008 23:56:10 +0000
parents dea0b823c8e2
children 207661f84875
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))))