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

2 files changed, 14 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 275e6dbeb0b..769f3898ac9 100644
--- 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 2f5f329d0b1..89e9dedb69d 100644
--- 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))))