From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 24 Aug 2009 17:11:20 +0000 (+0000)
Subject: (diff-find-source-location): Avoid goto-line.
X-Git-Tag: emacs-pretest-23.1.90~1720
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88421f3e11449351b0815a3f06993fc8e29edb2a;p=emacs.git

(diff-find-source-location): Avoid goto-line.
---

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  <monnier@iro.umontreal.ca>
+
+	* diff-mode.el (diff-find-source-location): Avoid goto-line.
+
 2009-08-24  Kenichi Handa  <handa@m17n.org>
 
 	* 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.