(compilation-auto-jump): Set window point to `pos' explicitly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 275e6dbeb0b6b139f075d83d0bf88cc87b9c9fea..769f3898ac9966d1f26e9e4c674bd15cd6a05fd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2008-05-01  Juri Linkov  <juri@jurta.org>
+
+       * replace.el (occur-read-primary-args): Set default to the car of
+       regexp-history and display it in the prompt, but don't add to the
+       list of minibuffer defaults.  Bind history-add-new-input to nil to
+       not add automatically `default'.  For empty input return `default'.
+       Otherwise, add `input' to regexp-history and return it.
+       (occur-1): Signal an error for the empty regexp.
+
+       * progmodes/compile.el (compilation-auto-jump):
+       Set window point to `pos' explicitly.
+
 2008-05-01  Eric S. Raymond  <esr@snark.thyrsus.com>
 
        * vc-bzr.el (vc-bzr-state): Allow this to return 'ignored

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2f5f329d0b1a3056357e9a910904dc779cd7735f..89e9dedb69d7b73487379109e39b1dad7b48d1c9 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -772,6 +772,8 @@ from a different message."
 (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))))