From 88421f3e11449351b0815a3f06993fc8e29edb2a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 24 Aug 2009 17:11:20 +0000 Subject: [PATCH] (diff-find-source-location): Avoid goto-line. --- lisp/ChangeLog | 4 ++++ lisp/diff-mode.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99f0cf80fea..6d4db938378 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-08-24 Stefan Monnier + + * diff-mode.el (diff-find-source-location): Avoid goto-line. + 2009-08-24 Kenichi Handa * language/ind-util.el (mapthread): Delete it. diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index 624b0ccfb3e..cf4947d20fd 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -1598,7 +1598,7 @@ NOPROMPT, if non-nil, means not to prompt the user." (when (> (prefix-numeric-value other-file) 8) (setq diff-jump-to-old-file other)) (with-current-buffer buf - (goto-line (string-to-number line)) + (goto-char (point-min)) (forward-line (1- (string-to-number line))) (let* ((orig-pos (point)) (switched nil) ;; FIXME: Check for case where both OLD and NEW are found. -- 2.39.2