From 93c0985f4cfd8ff502cc314c6a836e55b38458ac Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 1 May 2008 23:56:52 +0000 Subject: [PATCH] (compilation-auto-jump): Set window point to `pos' explicitly. --- lisp/ChangeLog | 12 ++++++++++++ lisp/progmodes/compile.el | 2 ++ 2 files changed, 14 insertions(+) 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 + + * 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 * 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)))) -- 2.39.5