*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 719c25b1aa58efe6c566ce254e0eb7ff9a8c19fe..cd1a8f9f652300d93b0c039e194e2d20afd2be9f 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 5e7fe57d63ea06b15953451b5a627588b6f5d793..8ca3f108b72968e0493b061cda753cdf96241fc8 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)))