*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 719c25b..cd1a8f9 100644 (file)
--- 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 5e7fe57..8ca3f10 100644 (file)
--- 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)))