From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Wed, 27 Aug 2008 20:49:02 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-pretest-23.0.90~3220
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=829e102dd08591621c4dbbc3c6e1ef1eb461bfda;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 719c25b1aa5..cd1a8f9f652 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,8 +6,8 @@
 
 2008-08-27  Teodor Zlatanov  <tzz@lifelogs.com>
 
-	* add-log.el (change-log-next-error): Run an extra `find-file' to
-	go to the position of interest.
+	* add-log.el (change-log-next-error): Run an extra `pop-to-buffer'
+	to go to the position of interest.
 
 2008-08-27  Tomas Abrahamsson  <tab@lysator.liu.se>
 
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 5e7fe57d63e..8ca3f108b72 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -546,7 +546,7 @@ Compatibility function for \\[next-error] invocations."
     (change-log-goto-source)
     ;; go to the file itself
     (let ((file (nth 2 change-log-find-head)))
-      (when file (find-file file)))))
+      (when file (pop-to-buffer (find-file-noselect file))))))
 
 (defvar change-log-mode-map
   (let ((map (make-sparse-keymap)))