From: Teodor Zlatanov <tzz@lifelogs.com>
Date: Wed, 27 Aug 2008 18:29:44 +0000 (+0000)
Subject: (change-log-next-error): Run an extra `find-file' to
X-Git-Tag: emacs-pretest-23.0.90~3230
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d25baef6d9b4eeade332e369fb5a0f1723d46f1;p=emacs.git

(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 9f3d0e2fece..d4ba7d364be 100644
--- 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 b7d855b7c62..5e7fe57d63e 100644
--- 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)))