(change-log-next-error): Run an extra `find-file' to

go to the position of interest.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9f3d0e2fecedb12a84a8b212d3733fa115a6471d..d4ba7d364be5d643a820646b91bdc100901c4674 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,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.
+
 2008-08-27  Tomas Abrahamsson  <tab@lysator.liu.se>
 
        * textmodes/artist.el (artist-mode-init): Added comment on the

diff --git a/lisp/add-log.el b/lisp/add-log.el
index b7d855b7c62c8e35488292aad894b34f2408272d..5e7fe57d63ea06b15953451b5a627588b6f5d793 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -543,7 +543,10 @@ Compatibility function for \\[next-error] invocations."
   (beginning-of-line)
   ;; if we found a place to visit...
   (when (looking-at change-log-file-names-re)
-    (change-log-goto-source)))
+    (change-log-goto-source)
+    ;; go to the file itself
+    (let ((file (nth 2 change-log-find-head)))
+      (when file (find-file file)))))
 
 (defvar change-log-mode-map
   (let ((map (make-sparse-keymap)))