# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1251133880 0
# Node ID 9d31b5972e9e7f5edaae9f1f0f3685d0ac0c39ea
# Parent  73bc53392b92a2677e5223e403e1a9c0dbc99d9a
(diff-find-source-location): Avoid goto-line.

diff -r 73bc53392b92 -r 9d31b5972e9e lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Aug 24 11:43:59 2009 +0000
+++ b/lisp/ChangeLog	Mon Aug 24 17:11:20 2009 +0000
@@ -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 -r 73bc53392b92 -r 9d31b5972e9e lisp/diff-mode.el
--- a/lisp/diff-mode.el	Mon Aug 24 11:43:59 2009 +0000
+++ b/lisp/diff-mode.el	Mon Aug 24 17:11:20 2009 +0000
@@ -1598,7 +1598,7 @@
       (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.