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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99f0cf80fea1ba687156948a4d86ff7bd88f6e1a..6d4db9383789ab1f9061bf54bcac69805c249a09 100644 (file)
--- 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 624b0ccfb3e72f7504a4e73b2628f0a412fe2260..cf4947d20fdc77fd5f95912638af5d7aa368c601 100644 (file)
--- 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.