Mercurial > emacs

changeset 97778:62d20088701e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Teodor Zlatanov <tzz@lifelogs.com>
date Wed, 27 Aug 2008 20:49:02 +0000
parents 01cc14db5be2
children e1112a954683
files lisp/ChangeLog lisp/add-log.el
diffstat 2 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Aug 27 20:39:33 2008 +0000
+++ b/lisp/ChangeLog	Wed Aug 27 20:49:02 2008 +0000
@@ -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>
 
--- a/lisp/add-log.el	Wed Aug 27 20:39:33 2008 +0000
+++ b/lisp/add-log.el	Wed Aug 27 20:49:02 2008 +0000
@@ -546,7 +546,7 @@
     (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)))