From 5d25baef6d9b4eeade332e369fb5a0f1723d46f1 Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Wed, 27 Aug 2008 18:29:44 +0000 Subject: [PATCH] (change-log-next-error): Run an extra `find-file' to go to the position of interest. --- lisp/ChangeLog | 5 +++++ lisp/add-log.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * add-log.el (change-log-next-error): Run an extra `find-file' to + go to the position of interest. + 2008-08-27 Tomas Abrahamsson * 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))) -- 2.39.5