# HG changeset patch
# User Teodor Zlatanov <tzz@lifelogs.com>
# Date 1219870142 0
# Node ID 62d20088701ef3b3c1484bbd9408983e5fd252a1
# Parent  01cc14db5be28dbadec93ab584e4a1ad5385adcf
*** empty log message ***

diff -r 01cc14db5be2 -r 62d20088701e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Aug 27 20:39:33 2008 +0000
+++ b/lisp/ChangeLog	Wed Aug 27 20:49:02 2008 +0000
@@ -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 -r 01cc14db5be2 -r 62d20088701e lisp/add-log.el
--- a/lisp/add-log.el	Wed Aug 27 20:39:33 2008 +0000
+++ b/lisp/add-log.el	Wed Aug 27 20:49:02 2008 +0000
@@ -546,7 +546,7 @@
     (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)))