From 829e102dd08591621c4dbbc3c6e1ef1eb461bfda Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Wed, 27 Aug 2008 20:49:02 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 4 ++-- lisp/add-log.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 719c25b1aa5..cd1a8f9f652 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -6,8 +6,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. + * 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 diff --git a/lisp/add-log.el b/lisp/add-log.el index 5e7fe57d63e..8ca3f108b72 100644 --- 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))) -- 2.39.2